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Editorial 



WELL, J was wrong about Wales. It rain- 
ed in the morning and in the afternoon. 
And all night as well. And every day lit- 
tle troops of walkers arid cyclists drip- 
ped Into our vilfage in search of a pint of 
anything but water. Such Is the in- 
domitable spirit that Wales inspires. 

It's early in the month here and the 
Special Offerfaooksare selling fast, but 
because I am an optimist (or fs it 
pessimist?) I am runnlr>g the coupons 
again so that anyone who wants extra 
copies, to pass on the page to a friend, 
or didn't want to hack up fast month's 
classified page gets another chance. If 
all goes well we may be able to arrange 
something else along the same lines. 

I see Pauf Grade has been laying into 
users who tape copies of NDUG soft- 
ware. Quite rtghttoo. Duplicating other 
people's produce to save a couple of 
quid here and there is bad news. Ripp- 
ing off anyone's software Is bad news 
these days. \bu might say well, I 
wouldn't buy it anyway, but it sets a bad 
example, and Dragon suppliers, who 
are playing toasmall market, need your 
support. 

Think twice, take my advice. Vbu 
could be cutting your own network 
from under you. 
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How to submit articles 

The quality of the material we can publish in 
Dragon User each month will, to a very great ex- 
tent depend on the quality o( the discovef ies ttial 
you can make wilh you'r Dragon. The Dragon 
computer was launched on to itie market with a 
powerful' version of Basic, but wllh very poor 
documentation, 

Articles which are submitted to Dragon User 
tor publication should not be more than 3000 
words long. All submissions should be typed. 
Please leave wide margins and a double space 
between each line. P rogtf a ms should, whenever 
possible, be computer printed on piam wfiite 
pa^er and be accompanied by a tape of the 
program. 

We cannot guararvtee to return every s-ubmit- 
led article or program, so please keep a copy If 
you wani to tiave your prog ram returried you musi 
include a stamped addressed envelope. 



Letters 



Adventure 
extra 

I would like to wish Peter 
Gerrard good luck in his 
takeover of the Adventure col- 
umn and hope that 1 can 
become as good a friend to him 
as I was to his brother Mike. 
Mayhi&light nevergooul, 

A little lip for those stuck in 

fangteiA'oorf; drink in western 

we I i to use 1 h e spri n g board . 

Simon 'The Solver Hargrave 

Crawtey Hill Farm 

Uley 

Dursley 

GI0S.GL115BH 

At the last count Mike's light 
was stm glowing gently over 
hisex-coiumn, because the 
signwriter hasn't been round 
to tlK it- But we're having it 
sent along to The Guardian as 
soon as possible. 



Machine 
code please 

EVERY month I enjoy reading 
your brilliant magazine, but I 
think that something is still to 

come. 
The onething I'm looking for 

every month is machine code 
for the more advanced user I 
think and know that all we 
Dragon users have had the 
computer for a while and know 
something about machine 
code, and I don't think we are 
interested in Basic for the 
beginner. 

When I say machine code, I 
mean machine code that in- 
cludes machine code in con- 
junction with the disc too (FX- 
H ow to load a nd save f rom MC } 
I must say that even the Basic 
progranns pnnted over the 
years areotavery high quality. 
I would also like to read more 
about hardware projects, For 
example, I m right now 
building a battery- back up- 
real-time-ciock and a HS232 
interface into my Dragon 32- 1 
havebuiltaPIAwhichlusevery 
much when I communicate 
with other computers. I would 
like to tell you more about the 
p roj ects it you wo u Id 1 iT< e it . 

Jakob Hoffman 

2Etlekcnet}akk&n 

8800 Viborg 

Denmark 



Every month we will be shelimg out a game or two, 
courtesy of Microdeal, to tHe reader/s /'"V..-^ 
who send the most interesting or ^'^ ^ 

entertaining letters. So send ^ EXTRAS 

us your hints and your opinions, ^" pi IFF ■ 
send us your hi-scores and ^ ^ '^^^ ^ } 

suggestions. Send us your 
best Dragon stories. What 
d'you think we are, 
mind readers?! 



I Kurr ■ 



Music for the Millions 

SOMEiimeagolwroteaietteroithankstoalltheDragonuserswho 

responded to a request for help with Puff, our tame Dragon at 

Westgarth a short-stay home for children with a mental handicap- 
Theresponsewasoverwhelming, and several people have kept in 
touch with usand provide continuing help and advice. I acquired a 
Dragon 64 for my own use in creating programs for the children , 
along with Microdeal's QomposBT utility which, as an ex^ 
professional musician, l found invaluable for producing proper 
music on the Dragon. It does, however require some musical 
knowledge to produce the best results, particularly when mowng 
qraphics note by note, Unless the note are all the same length a 
veryjerkyeffectcan result, aswell as making the tune sound rather 
odd with the pauses as the graphics are movedl 
Bvwayof a thankyou' toDragon users. I amdevetopinga library 

of Composertunes, both Basic DATA statements and M/C fifes so 
that programs with little musical Knowledge can have access to a 
ready mode source of variety of music, from short 'jmg es and 
record tunes compatible with moving graphics, to full-length 
classical pieces just for listening to, nursery rhymes, Chnstmas 
carols and TV themes, etc The Basic DATA lines are commerited 
with REfyAs to enable lists of tunes to be chopped out or repeated, 
and I have a short utility to automatically insert 'return to Basic 
betweeneachnoteofaM/Cfileandtesttheresults- 
The library is not complete as yet J am aiming for 100 tunes as a 

starting point with just over SO completed todate. Unfortunately I 
will not have thetimetoactually run the library whencompleted. so 

itsomeoneoutthereiswillingtotakeiton, then please get in touch, 
( must stress though that it is intended as a free service 1o Dragon 
users and not a commercial proposition (harities excepted!), 
Sorry, forgot to mention, not having a disc-drive, the library is 
cassette based with four tunes on each (Cl 2) tape . 

Anyone interested in taking the library, or helping to set it up. 
Please give me a call or drop me a line at home or work. 

^ SfuarrBearofwood 

1 VVes^ Sof fom 

Hoiii-&ne: 

Norland 

Sowerby Bridge 

WyorkshifeHX63QL 



PS 1 haven't a disc-drive, I don't need a printer, S can only program 
in Basic and I donM play adventure games . The new Dragon users 

mentioned in July' s editorial could well be put off by thinking that 
OU's only catering for advanced users and leaving behind ire 

beginnerslikeme!! 

EVERY single issue we have at least one person saying there 
was nolhino interesting it and why don't we run the same 
things weran in the issue before that ^ a rvd one person say ing 
It was the most interesting issue he's seen for ages. Please 
eueryone? Of course we do - we just can't do it every month . 
that ' s alH thmk Stuart's Ubrary idea is going to please quite a 
few people, though . Thanks from Dragoners for your efforts, 
and the efforts of the people who are supporting the school. 



We are not certain quite 
when, but another series on 
machine code is planned in 
thefuture< 

We would actually like to 
run more hardware projects, 
but we can only in fairness 
consider small projects, as 
the potential for getting into 
trouble on an ambitious 
modification is almost limit- 
less; this kind of thingisbest 
left to specialist hardware 
magazines. Anybody who 
wants to send us a hardware 
project for consideration: 
please send a detailed 
description of what the 
device does, a COMPLETE 
set of drawings, including 
an y PC B I ay o ut i n vo Ived , a n d 
a complete list of parts used, 
along with the names and ad- 
dresses of current suppliers, 

and cost. 

Then we can think about 
publishing! 



Club 
information 

THANK you very much for 
publishing the fact that I am in- 
volved in forming a new user 
group. However the exact 
details you published were not 
correct- 1 feel that this was my 
fault as my Initial letter was 
somewhat less than eloquent I 
would then be thankful if you 
would publishthenewdetails. 

1 )- My postcode is fact NP4 5Lfsl 
(thepostman was not pleased), 

2) The group is not only a local 
one but a postal group with 
newsletter, etc, (I will however 
be more than glad to arrange 
meetings in my area) - 

3) Thefirst newsletter isalmosi 
ready(l will send youacopy}- 

4) Copies for prospective 
members can be obtained via 
me for a meagre 50p. 

5) Subscription is E4/6mths or 
£7.50/year. 

6) Members will have to be in- 
volved in the group. 

I am very grateful for your 

help. 

H.Batl. 75SunnybankHd 

Pontypool, GwentNP4 5LN 

HAH! Don't mention post 
people around here just at 
the moment. The west end 
posties are on strike again, 
and if there's anything 
essential missing from DU 
this month, that's why. 



i 



li 
II 
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This is the chance to air your views — send your tips, compliments and complaints to Letters 
Page, Dragon User, 12-13 Little Newport Street, London WC2H 7PP, 



Machine 
code wanted 
for beginners 

I have owned a Dragon 32 for 

one and a bil yeafs now and 
have been an avid reader of 
your magazine for the same 
period (srnce Feb TBBQ}. 

I fiave read one or two letters 
from other readers asking for 
the artioles to the less basic 
{excuse punj and in one case 
the plea was "less moronic", 

May I plead the opposite 
case. Although I am of mature 
years, I have a compyting age 
of probably five I am slow by 
starting to understand Basic 
and can even modify one or 
twoprinted programs to the ex- 
tent that they still work. BUT 
Machine code gives me a 
headache, 

Would it be possible for so- 
meone to write an explanation 
in juvenile terms (computer- 
wise) so that I, and others like 
me, can at least enter 
Mnemoni-cs via an assembler 
and get something out, 

I have a complete set of IN- 
PUr magazines, latest edi- 
tion and have taped their 
Dragon assembler, I also have 
CO-RES from Microdeal All I 
ever get is error messages. 
Even these flash across the 
screentoofastforcomprehen- 
sion. My hair was grey when I 
started but I shall start pulling 11 
out quite soon. 

If your staff authors consider 
it beneath them maybe one the 
readers who are regular cor- 
respondeniscouldtaKeupthe 
challenge. I have two books by 
John Vander Riyden beside 
me now, and they don't help 
either. PLEASE, what am I do- 
ing wrong? 

H.F. Harding 

27 Dawn Amprey 

Cirencester 

GIOS.GL7 5QS 



Staff author? STAFF 
AUTHOR?? In this business, 
we think a staff author is so- 
meone who writes for 
Wizard's Weekly,,. J wish we 
had one or two. At least then 
I would know where they 
were when I wanted them. 

Seriously. is anyone 
reading this interested in 
taking up the challenge? If 
so, drop the editor a hne. 



Hi Score Corner 



ACCORDING to our postbag, 
Chuckie Egg is one of the 
most popular games of all 
time. Why else do our 
readers spend hundreds of 
hours playing it? Paul 
Jasiiciewicz's challenge in 
OU June called forth the 
pream of the crop. 

WHILE reading your Hi-Score 

Corner, I came across Paul 

fasikiewiczs's high score for 

Chuckie Egg, which was 

222,570 on level 22, My sister 

got onto level 22 as well but got 

a higher score of 236,580- She 

pleads for this letter to be 

printed. Please let me know if 

anyone should beat this as my 

sister wishes to strangle Ihem , 

Michael McCuSlough 

729 Cregogh Rosd 

Belfast 

M Ireland 

BT6 0LA 

THIS woman will go far. Not 
only has she talent, but she 
has a manager as well. Ever 
the persons to oblige, 
Dragon User lines up the 
victims. 

REPLYING to Paul las(kiewiC2 
in June's issue, the highest 
score I have ever got is 
239,030 on level 21. 

Simon Elencowe 

3 Sandringham Road 

Kings Sutton 

Banbury 

Oxon 

0X17 3QS 

SHORT and to the point. 
Dene Bebbington ^oes for 
pfiilosophy as welL 

IN response to Johnafhan 
BaKer's letter in the January 
issue, his high score on 
Chuckie Egg is not the highest. 
I have scored over 240,000 
before level 20. 

Unfortunately, the problem 
with high scores is that there's 
usually someone else who has 
managed to better your score. 
I imagine that scores between 
300,000 and 400,000 on 
Chuckie Egg would be quite 
hard to achieve, or is there 
somebody who can prove me 
wrong? 

Dene Bebbington 

60 Quarry Ctougf^ 

Stalybridge 

Clyesit}ireSi<!5 2HW 



THE problem with high 
scores? I thought that was 
the whole point of high 
scores ... but see below. 

REFERRING to the June issue 

Hi-Score Corner, I scored 
250,610 on Chuckie Egg (level 
24) and that was nearly three 
years ago! I would liKe to ask 
some questions that have 
been bothering me, 

1J There aren't any proper 
instructions in Wizard's Quest. 
What do I do? 

2) Whatever happened to a 
proposed game by Roy Coates 
called Talisman? 

3} Are there any good pro- 
grams for light pens? 

4) I can't get anywhere in 
Return of the Ring {can't find 
breather mask, etc.] Help! 

Graham Bruce 

J 1 G&rrick Road 

Hartlepool 

Cleveland 

TS25 4EJ 

1 ) Write to Microdeal . or Pete 
Gerrard, or both, 2) Because 
Roy 's progra m me r s ud den I y 
realised he was starving and 
went and got a proper job 3) 
See fast month's news page 
4) someone help this chap. 
By the way, we are trying to 
sort out your missing tape 
query, Mr, Broce. tf at first 
you don t succeeed , keep on 
swinging, as the spider said , 
But on to the next victim; 

I WAS reading June's Hi- 
Score Corner and I found a 
scoreon ChuckJe Egg that was 
222,570 on level 22, My 
highest score was 251 ,660 or\ 
level 23. 

Rot^rt Hough 

364 Vicarage Lane 

Marfan 

Blackpool 

Lanes 

4Y4 4ND 

WHILE reading June's issue, I 
cam© across a letter from Paul 
iasikiewicz who said his hi- 
score for Chuckie Egg was 
222,570 My hi-score for 
Chuckie Egg is 326,650, level 
271 

Some other hi-scores: 
Module Man 156,650 
Hungry Horace 6,794,320 
Mr. Dig 2,429,290 

If anyone needs help on 
Trekboer, Juxtaposition ox 



Shenanigans, please write to 
me, I also would be very glad if 
anyone could help me with The 
Vortex Factor (from year 
3032(2) BC), 

Joiyn Korsvoid 

The Dragon Devil 

2824 Redaien 

Norway 

SEE, Dene? And further... 

PLEASE find enclosed my 
cheque for £14, and my pay- 
ment s(ip. Keep up the good 
work. 

Carl Truett 

1 1 Hayden Road 

Rushden 

NorthantsNNIOOHX 

PS My high score for Chuckie 

Egg is 41 3,940 at level 32. The 
normal ducks go much faster 
and there are two mad ducks. If 
anyone can do level 32, ihen 
they eally know where their 
towel is. My other good high 
scores are 31 6,600 on Donkey 
King, 625,480 on Mr. Dig, 
456,600 on Module Man and 
1,335,078 on Hungry Horace, 
{None of them POKE aided.} 

NOW that's the kind of letter 
we really like. Where can we 
go from there? Tfme for 
another poem, obviously. 

I thought I would write and tell 
you the game we have, Moon 
Cresfa, i& very good The 
highest score is 25,000, Tm 
afraid I can only reach 23,000, 
so out of frustration I wrote a 
poem about it. 

MOON CREST A what a game 
Score 25,000 and you reach 

fa me- 
lt's good fun yet frustrating. 
I guess its all the waiting. 
What makes the game so 

rewarding 
ls,without any warning 
FAR OUT, FAR OUT 
What satisfaction. 
It causes an adrenaline 

reaction. 
Moon Cresta is my game 
Because in the end I 
Type in my name. 
Moon Cresta! 

Mrs, V. Benton 

120 Bentley Court 

Moor Street 

Luton 

Beds. LU1 1EZ 

FAME at last, and she didn't 
even have play Chuckie Egg 
to do it. 



J 
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News desk 



Trojan 
Heroes 

DRAGON USER wishes to apologise to 
Trojan Micro Computer Software and 
Accessories for describing the original 
Trojah Light Pen software as 'disappoint- 
ing' in the August issue. 

This wa& entirely due lo a misunder- 
standing about Trojan's reasons for 
permitting the software to be updated. 
Says Trojan's Tom Jones, who was 
ext rem ely good nat u red a bo u t on r c la ng e r, 
^'The Trojan light pen software has sold 
over 20,000 copies overall, and was very 
well reviewed in Dragon User. We're still 
very happy with it. We have given informal 
permission for alterations to be made to »t, 
within our copyright, as long as it is 
checked by us." 

Trojan can be contacted on 0792 205491 
it anyone has any questions, 



Good show 

HEHEareacoupleofcorrectionsto recent 
news items: 

The North of Er>gland Dragon Show and 
Convention will be taking place as and 
where we said it would, with the exception 
that the venue is the Bishop Hens haw 
Upper School, Rochdale, and not the 
Bishop Hanslow Upper School as we 
claimed. 

Sorry, Vicar! 

"Do tell people to come along" says 
Pulser's Brain O'Connor. *'Some dealers 
wilt give up shows if they can't get a 
reasonable attendance and cover their 
costs. This will be a bit different from the 
average Dragon show." 

It's your show. Go, go, go. We are. 

Also apologies to Hans Christian 
Andersen Software. Of course their pro- 
gram Superwriter I! can't be 'loaded into 
memory and then saved and loaded onto 
another disc' as we claimed in the July 
Newsdesk. What we meant was that the 
data files can be saved to another disc. 

Sorry, Hans! 



NDUG 

HERE I am, clutching a June issue of 

Oregon Update bearing the inscription 

news for September', and it's nearly the 

end of July, it's an arrangement known as 
the 'double time scheme' to drama critics. 



If you have any new products for the Dragon — software or hardware 
ring the News Desk on 01-437 4343 



Can't stand printers? 



VIGLEN has announced a new range of 
printer stands for use with most 80 or 136 
column printers. 

At the bottom of the range is a metal 
stand finished in black, designed for use 
with the Centronics GLP II printer. There is 
a larger version of this stand with a paper 
roll holder 

Two models of smoky or clear look 
perspex stand are available, with room for 



continuous stationery underneath. 

Viglen also supplies a high-impact 
plastic printer stand, colour co-ordinated 
to the usual printer colour, with room for 
1 ,000 sheets of continuous stationery. 

prices range from a very affordable 
£9.95 up to £2995 See your computer 
dealers, or contact Viglen on 01 B43 9903 
for a list of dealers. 




and 'darned confusing' to Dragon User. 

Anyway, here are the contents of June's 
Dragon Update: test run of the US J & R 
Electronics Bankers' Board design from 
The Rainbow, utility reviews, easy machine 
code, OS-9 for beginners, retev\friter and 
Super DOS, a joystick/cursor key mod, 
some bits on DeltaDOS, a couple of 
graphics routines, some screen dump 
samples (and a drawing competition), the 
usual small ads and a suggestion that DU 
and Update should rule the world, seeing 
as how some people seem to think we do. 

WelL why not, Paul? As long as i get to 
wear a crown 

UpdAte also warns that business adver- 
tisers will have to contribute to costs in 
future, or risk having their ads 'bumped'. 

DU thinks this is fair enough. Although 
Update is not strictly a commercial 
organisation, they are still in business in- 
somuchas they have to pay out money for 
printing etc. just as we do, and need con- 
tributions fro in people using their services. 

The National Dragon Users Group can 
be contacted at 6, Navarino Road, Wor- 
thing, Sussex. Phone: 0903 207565. 



Correction 



B. Yeoman Walker has written to say; the 
printers have truncated more than the title 

in my article. Several lines are missing 
from the bottom of Figure 1 on page 19 of 
the July issue, which will no doubt cause 
some readers to wonder what has happen- 
ed. {Not just readers — Ed.) Here are the 
missing notes: 

1. There is no Elite facility. 

2. There are no ESC P codes. 

3 The ENGLARGED mode is only 

available by SO (= Shift Out) ,GHR${14) 

4 The CONDENSED mode is only 
available by SI (= Shift In). CHn$(l5). 

5. There is no italic facility (ie No ESC 4 or 
ESC 5, or alternative). 
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Dragonsoft 



Dragon guide book 



Mew software for review should be sent to Dragon User 
12-13 Little Newport Street, London WGZH 7PP, 



Program: Magbase 
Supplier: Pulser Software, 36 

Foxhill, HighCrompton, Shaw, 
Oldham, Lanes 0L2 7NQ 
Price: various according to 
versions 

THERE have been surprisingly 

fewdatabaseprogramswritten 
for the Dragon since the late ar- 
rival of the disc system, artd 
most of those packag es t h at did 
reach the shelves (can you 
rem emberbuying Dra g on sof t- 
ware from a shop?) failed 
miserably due either poor pro- 
gramming or weak program 
design. Having got myself a 
reasonable database program 
what do you use ft for? Com- 
puters are ideally suited for sor- 
ling and searching through 
large amounts of information 
but what kind of information do 
most home computers have 
t hat req u i res a CO m pu ter to so rt 
i! out for Ihem? Why, keeping 
track of the wonderfully witty 
and informative articles in our 
beloved Dragon User magazine 
I hear you both cry! 

Pulser Software have now 
released a database program 
which has been specifically 
written for indexing magazine 
articles and comes either on its 
own or wit h a ch ice of d ata files 
that contain an index of the ar- 
ticles from within the covers of 
such esteemed journals as 
Dragon User and Dragon Up- 
date. The program is available 
on cassette and disc versions 
are available for the usual 
system s i ncluding Dragon DO S, 
DeltaDOSand CumanaDOS. 

The program is written in 
Basic which is reasonable for 
smaJI database situations and 
has been around long enough 
that there are no 'bugs' in it. 
Records may be searched for 
using either a larger string or 
range of record numbers and 
output, as you would expect, 
may be directed to either the 
screen or the printer. The printer 
routines are, by default, set up 
for Seikosha or Tandy printers 
but this may be re-configured to 
suit your own system. All the 
other usual database function 
are provided to allow sorting, 
record modification and addi- 
tion etc. etc. 

Trying to remember which 
issue a particular article was in 
isvirtuailyimpossible.Magr^ase 
willnotonlyfinditforytjubutwill 
point out other articles on the 



same subject. Magbase must 
be worth its asking price for the 
Dragon User index alone 
without the database soft- 
wareThe on!y real snag wiih the 
Magbase program is its 
elegance, Having selected and 
confirmed an option it is annoy- 
ingtobeaskedto'pressakeyto 
start'. It's a small gripe I know, 
but when you use the program 
for more than a few minutes it 
becomes very annoying. 

Roy Coates 



Success for 
the search 

Program: Da fa Retrieval 
Sysiem. D.R.S. 
Supplier: Grosvenor Soft- 
ware, 2 Beacon Close, 
Seaford. E.Sussex BN25 2JZ 
Price: £9.95 

THE introductory screen has a 
1986 copyright message, but on 
the main menu the date is 1993. 
This, coupled with the tide, 
leads me to suspect that this 
program shares a common 
ancestry with the Salamander 
DRS System which was around 
inthe early days of the Dragon. 
Never mind the history, what 
does rt do and how well does it 
do it? Well basically it is a 
database system and ii works 
extremely well. 

The program is supplied on 
cassette, but the manual gives 
instructions for transferring to 
disc (CLEAR 100 first iftransfer^ 
ring to disc — that's been omit- 
ted from the manual!), In its 
cassette form the program 
copes with 22,000 characters of 
data.allheldinmemoryatonce. 
A disc file can be as large as 
154,000 Characters and is 
treated as up to 7 segments of 
22,00€ characters each . Data is 
stored as a number of records, 
eac h of wh ic h can contai n u p to 
480 characters split into 36 
fields, Data is input and pro- 
cessed via very flexible user 
definable screen layouts, one 
record displayed at a time with 
full screen editing facilities. The 
program is written in machine 
code and works very fast. 

So how do you use the pro- 
gram? Having loaded it, a menu 



is displayed suggesting you 
press D to design your screen 
layout. You then set up the for- 
mat of the screen and the 
number, si^e and type of each 
field in the record ; you can aiso 
add titles to the fields. The 
photograph shows atypical for- 
mat screen, defining 15 fields 
(A-l are alphanumeric and 1-5 
are numenc). For example, the 
format for "BIRTHDAY'^ defines 
that up to three entries may be 
made consisting of a two digit 
number for the date, a three 
character month and a four digit 
year. Having completed the 
screen layoutthis is saved and 
you return to the main menu- 
You now start adding data by 
selecting the A' command. Data 
can only be entered into the 
defined fields and must be of the 
correct type, ie only numbers 
entered into a nomeric field. As 
each field is filled the next is 
selected by using either the 
(ENTER > key or the cursor ar- 
row keys. You do not need to fill 
all fields, the program copes 
quite happily with empty ones. 
When a record is complete, you 
press (BREAK) and are pro- 
mpted by 'Add' to press 
(ENTER), you are then pro- 
mpted by "OK, Next/Menu N" 
so press (ENTER) yet again 
and you are ready to start filling 
the next record. I found this 
tedious, but it works and gives 
maximum fiexibiijity, The se- 
cond photograph shows a 
typical d atanecord You ca n con- 
tinue entering data until you 
h ave com pleted afulllfstofyour 
friends, their addresses, 
children's ages or whatever, 

Having got your database, 
what can you do with it? The first 
thing istosaveitontapeordi&c 
in case of power failure! Then 
you can reformat it if you don't 
Nketheoriginal screen design, 
update records, print it out either 
in total or selectively, but most 



importantly you can do sear- 
ches on it. You enter 'S' from the 
main menu and you are 

presented wit h a bla n k ve rs i on 
of youroriginal screen design. 
Into this you can enier search 
characters in any position, a 
range forthe initial characterof 
afield and ranges for numerical 
values, eg (10; the program 
then ANDs these all together 
anddoes a search for all records 
that meet ail these criteria, eg 
you could do a search for all 
people Vif hose surnames begin 
with a letter between J and P, 
who live in Northampton and 
have a child less than 5 years 
old: or look for all music by 
Beethoven recorded by the ISO 
in 1984. 

Just a few minor criticisms of 
the program: it's written for the 
Dragon 32 and can't takeadvan- 
tageoftheextrastorageprovid- 
ed by the D64. As with a great 
many Dragon programs, you 
are commitlted to upper case 
letters only. It would have been 
nice if they had added a lower 
case driver using the graphics 
screen {although this would 
reduce storage capacity), and 
three keystrokes to enter each 
new data record really is a bit 
tedious. Finally, if you are not 
lucky enough to have a disc 
drive, I don't think its real fy worth 
bothering to try and do anything 
serious with any database pro- 
gram using cassette storage, it's 
just too slow, you could have 
looked up a written version of 
fheinformationinhalfthetime. 

To sum up, if you've got a 
Dragon with a disc drive, and 
yo u 've not got F I ex o r O $9, and 
you wan I to make se r io us use of 
it, then this really is a must for 
you. It's a piece of professional 
software at an amateur price. 
Bernioe H^nnessy 
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Datasort 

Mike Hosken presents a database program which just grew . . , 



THIS is a long, prograpn, because il does so 
many useful jobs. But it's not as dreadful lo 
type in as some of yojr more major 
machine code listings. It's not particularly 
we 1 1 si ructj reef: it might even be ace used of 
suffering from the spaghetti syndrome. 
The reason is that the program has 
gradually evolved, with extra facilities be- 
ing added as my needs expanded. And I 
simply daren't restructure it for fear of 
bugs, 

There is quite a lot to say, so I will do it in 
note form, 

Description: 

This is a program of approwmately leK 
which will accept any form of 'tatjuiaiable' 
data; inspect, alter or delete headings or 
records; sort numeric ally or alphabetically 
on any field; save/load using DragonDOS 
including an option to combine two sorted 
databases into a sorted master database; 
compile an index by optional combination 
of identical entries; print a customised 
tabulation, either a wliole database or by 
use of up to three simultaneous selector 
keys; total and average numberica! data, 
all or selected, 

Example: 

Table 1 gives details of variables in 
DafasDf f, compiled on Datasort. {Note that 
sorting is operational on both fields: se- 
cond column entries are alphabetical 
within the first column sorted sequence.) 

Hardware; 

Dafasorf will run on any Dragon but 

CLEAR, PEEKS and POKEs are for 

Dragon 32. Examples printed here were 
done on a daisywheel printer but program 
listing CHRS numbers are for the Seikosha 
dot matrix printer using continuous 

stationery. 

Program and Operatior^al Notes' 

Une 240: if your printer does not have 
automatic line feed on using the last 
characterthen the full printer width can be 
used. 

Line 250: not possible on other kinds of 
database programs, where fields have to 
be specified before you start, regardless 
In practice, 'fields can grow" is much the 
more convenient. 

Line 420: beware getting this wrong el se 



sorting will treat 9 as greater than 100! 

Line 500; invaluable if youarecompiling 
an index, to a book perhaps — or set of 
Dragon Users. 

Subroutine 630 to 650 produces a 
marker to show present maximum field 
width, 

975 DIR can be inserted if you would like 

to have your files listed on screen before 

making a choice. 

Line 1000 sends you back for another try 

if you don'tspecify a proper filetitle: it may 
be safer loexit back to the menu with THEN 

1210, if you prefer 

Data could be lost if the same happened 
at line 1410: so again, THEN 1210 (instead 
of 1390), 

Line 1440: to make use of this facility 
{which saves both time and memory under 
many circumstances), process database 
A, sort it. and save to disc Re-RUN with 
database B, and sort it. Reload database 
A, effect lively 'on top of B. (Re-soriing at 
this stage would, if the memory is now 
almost full, take a very long time.) Save 
onto disc, which can be done as a sorted 
combination AB. Re-RUN, Loading AB for 
printing, modification, arithmetic, etc. 

Line 1840: sorting usually uses the 
fastest swapping procedure but this can be 
overcome here. Eg, sort book titles fast, 
then sort by authors but retain previous 
sequences': thus Dickens's novels will be 
in alphabetical order but all before Shaw's 
plays (in alphabetical order). 

Line 2260: any headings are pnnted to 
t|ie left margin so only exceptionaliy 
should spaces be inserted to the left of the 
first field. 

Line 2390: CHR$ (14) puts the printer in- 
to enhanced mode and CHRS(1 5) returns it 

to normal , 

Li ne 2460 : ta b u latio n s are e asier to read 
in blocks of five lines. 

Une 2650: using INKEYS rather than 
INPUT makes it easier to browse records 
using N option. For other options don't 
press ENTER until AFTER selecting the 
record number, (Or change to INPUT it 
preferred.) 

VVith the Delete option the gap in the 
array is filled by bnnging up the last entry 
rather than moving ALL records up one 
{which would be loo slow). So deleting 
should be don© before sorting where 



possible. Also, any systematic editing 
should start at the end and work upwards, 
ideally. 

Line 2630: any search goes right 
through thedatabase.ratherlhan stopping 
after finding one appropriate entry. 

I hope line 2970 is clear enough If the 
displayed field entry Is alright then just 
press ENTER to retain it. If it's NOT alright 
thentype in everything that you want in that 

field {including what was in it previously if 
you merely want to extend it) and THEN 
press ENTER. 

Line 3650 would, on a database of 
second-hand cars, pick out all /any 'Ford' 
models, and line 3660 all the injected 
versions if the model number ends in 1', 
Line 3720 enables it to select the ones 
priced below, say, 3500, but on a members' 
list It could check all those with names 
starting with S or earlier in the alphabet. 

Line 4160 is simply an a nti -abort ion 
safety device But it is so important that it 
demands a three-key response whereas 
the usual ones have been the two-key OK 
or the single-key Y or N; if your universal 
preference is for Y/N then program all such 
choices in whichever way you like. 

Incidentally, Darasoftfilescanbeloaded 
into a word processor or perhaps into a 
label-printing utility program lo add even 
greatertlexibility to the whole system. But if 
yo u ' ve al ready got so me data and you want 
to convert it into Datasort format you need 
simply to build a converter program This 
can be done if you CHAIN the loading sec- 
tion of your own program, with a small mid- 
die section if any processing is necessary 
(such as the addition of Dafasort flags as 
listed in Table 1), and the 'Save data on 
disk' sector of Datasort. 

Personal Note: 

Not my prettiest program: it grew a bit 

haphazardly, but it is much my most useful 

one(evenifaccounismayactuallybemore 

important), 

I have another version for tape storage, 
and I would be interested to hear if anyone 
is interested in that. 

{Mike Hosfien is not an easy chap to get 
hold of these days, but if anyone is in- 
terested in alternative versions, drop us a 
line, and we wilt see if we can get in touch 
with him eventually.) 



10 REM DATASORT database S0E*t, 

d DISK file edition, 
20 CLS 

PRINT 6172, "DATASORT"; 

PRINT ^20il,STRING$C8.2ti3); 

PRINT i229,^'yiTH SEIKOSHA PRINTER" 

PRINT §265, "AND DISK FILES" 

PRINT §352, "A PROGRAM TO STORE STRING 
IT INTO ANY ORDER." 
80 PRINT gil96, "PRESS ANY KEY..'^ 
90 PCLEAR 1: CLEAR 9000 
100 DIM G$C3),T(3),V(3)»¥(3) 



store and tabulate: SEIKOSHA printer an 



30 
40 
50 
60 
70 



AND/ORNUMERICAL DATA AND SORT 



l\ 
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110 IF INKEY$=^'" THEN 110 

120 GLS: PRINT §96, "DO YOU WISH TO RE-ENTER OLD DATAPROH DISK? (Y/N)" 

130 INPUT D$ 

1^0 IF D$<>"Y" AND D$<>"N" THEN 130 

150 GLS: If? D$^"Y" THEN 970 

160 REM >>>>>>>>>> setting up new records 

170 PRINT .g96/'INPUT ANY TITLE OR LIST-HEADIHQ FOR THE WHOLE SYST^ 

(Oft JUST 'ENTER" BY ITSELF)," 
itiO LINE INPUT T|: CLS 

190 PRINT e96/'HOW MANY items OP DATA (FIELDS) MAKE UP EACH LINE CRECO 
RD)"i 

200 INPUT B: B=B-1 : CL3 
£10 IF B<1 THEN CL30: GOTO 190 
220 A=1200/tB+l) 

230 DIM F$(A,B),C(B),Ht(B),RCB),SLCB) 

2^0 PRINT "FOR PRINTING AT ONE LINE PER RECORD PLEASE FLAN AN ALLOC 
ATIONOF SPACES (AND PRINT GAPS) TO TOTAL A MAXIMUM OF 79-": PRINT 
2^Q PRINT "1 = PRESET FIELD WIDTHS = FIELDS CAN GROW": PRINT 

260 INPUT "CHOOSE" ;U: CLS 
270 IP UOl AND UOO THEN 2^0 

280 PRINT "INPUT ANY FIELD TITLES/HEADINGS." 
290 FOR L=0 TO B 
300 PRINT "FIELD" L+1; 
310 LINE INPUT F|(0,L) 
320 SLtLJ=LENCF$(0,L)) 
330 IP U=0 THEN 360 
340 INPUT "FIELD WIDTH" ;SL(L) 

350 IF LEN(F$(0,L) )>SL(L) THEN PRINT "HEADING TOO WIDEI": GOTO 300 
360 NEXT L 
370 CLS 

380 FOR L=0 TO B: PRINT P*(0,L): IF U=l THEN PRINT "WIDTH"SL(L) 
390 NEXT L 

ttOO INPUT "TYPE 'OK' OR 'NO',..";A$: CLS 
410 IF A$<>"OK" THEN 280 

420 PRINT "INDICATE WHICH TYPE OF DATA IS TO BE DEALT WITH IN EACH FI 
ELD: N = NUMBERS OR L = LETTERS ETC.": PRINT 
430 FOR L=0 TO B 

440 PRINT "FIELD" L+1 ;F$(O.L)" "; 
450 INPUT hi 

460 IF AtO^^N" AND At<>"L" THEN 450 
470 IF At="L" THEN C(L)=1 ELSE C{L)=0 
480 NEXT L 

490 INPUT "TYPE 'OK^ OR 'NO^.."JA|: GLS: IP A$<>"OK" THEN 4 20 
500 PRINT "SHOULD RECORDS WITH IDENTICAL"; PRINT Ft (0^0) 
510 INPUT "ENTRIES BE COMBINED? (Y/N)"iA$ 
520 IF A$<>"Y" AND A$<>"N" THEN 500 
5 30 IP A$="¥" THEN CR=1 

540 CLS: PRINT "KOW IS THE TIME TO START PUTTINGIN ALL THE DATA." 
550 REM >>>>>>>>>> data input 

560 PRINT "USE egg AS A DUMMY ENTRY TO END DATA INPUT." 

570 R=R+1; IF R>A THEN PRINT "STORAGE ARRAYS NOW FULL.'': GOTO 1230 

580 PRINT "RECORD NUMBER" iR 

590 PRINT STRING*(13+LEN(3TR$(R)),131) 

600 FOR L^O TO B 

610 IF F$(0,L)<>"" THEN PRINT F$C0,L) ELSE PRINT "DATA FOR PIELD"L+1 

620 GOSUB 630: GOTO 66O 

630 X-PEEK(136)*256+FEEK(137) 

640 IP )l+SL(L)>1535 THEN PRINT §511: PRINT gX-1056,;: GOTO 63O 

650 POKE X+3L(L),191: RETURN 

660 LINE INPUT P$(R,L) 

670 IP F$(R,L)="@gg" THEN R=R-1 : GOTO 1210 

6SO IF L>0 OR R=l OR CR=0 THEN 740 

690 KK-0 

700 FOR K=l TO R-1 

710 IF F$(R,L)=P!f(K,L) THEN PRINT ''AMEND RECORD"X: M=K: KK=K 

12Q NEXT K 

730 IF KK>0 THEN R=R-1: GOTO 2970 

740 IP LEN(Ft(R,L))>SL(L) AND U=0 THEN SL (L)-LEN(P$ (R , L) } : GOSUB 840 

750 IF LEN(F|(R,L))>3L(L) AND U=l THEN P* [R,LJ=LEFT*(P$(R,L) ,SL(L) ) 

760 NEJCT L 

770 GLS 

780 PRINT PEEK:(35)*256+PEEK(36)-PEEKC33)*256-PEEK(34)"meTnopy free" 

790 PRINT 821. "see to stop"i 

BOO L=R: GOSUB 3090 

810 PRINT 
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820 

830 

8A0 

&50 

860 

870 

880 

890 

900 

910 

92 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

ADY, . 

1030 

1040 

1050 

1060 

10 70 

1060 

1090 

1100 

1110 

1120 

1130 

ililO 

1150 

1160 

117 

1180 

1190 

1200 

1210 

1220 

1230 

12i|0 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

lilOO 

iillO 

1420 

1430 

S A 

1440 

1450 

1460 

1470 

1480 



GOTO 570 

KEM >>>>> check line length 

W=0: S^O 

FOR LL=0 TO B 

W=W+SL(LL)+R(LL) 

NEXT LL 

PRINT "(I-INE LENGTH^W; 

IF S=l THEN PRINT "INCL 



IF R(LL)>0 THEN 3=1 



GAPS.)" 
ELSE IF J=3 THEN 
NEXT LL 



ELSE FRINT 
RETURN 



"WITH NO GAPS, )" 



DATA FILE,'" 



IF J=6 THEM 930 

FOR LL=1 TO 500; 

RETURN 

FOR LL=0 TO B 

PRINT "FIEL.D"LL+1,SL(LL)"CHARACTERS" 

NEXT LL 

IF INKEY*="" THEN 960 ELSE 1210 

REM >>>>>>>>>> reading data from disk 

FRINT ^96 /'INPUT THE NAME OP THE REQUIRED 

INPUT H* 

IF H|="^' THEN 980 

CLS 

PRINT ei60, "CHECK THAT THE DISK IS IN PLAGE, PRESS ANY KEY WHEN RE 
It 

IF INKEY$="" THEN 1030 

CLSt PRINT §236>H$ 

FREAD H$;A 

FREAD H$;B 

FREAD H$;CR 

FREAD Ht;Y 

FREAD H$;U 

FLREAD H$;T* 

IF R=0 THEN DIM C (B ) ,F* ( A .B ) ,H* ( B) ,R ( B) ,SL{e) 

FOR L=0 TO B: FREAD H$;G(L): FREAD HijS: IP Z>SLCL) THEN SL{L)=Z 

NEXT L 

FOR L=0 TO B: FLREAD H|;P|{OjL): NEXT L 

FOR L=R+1 TO R+Y 

FOR LL=0 TO B 

FLREAD H$;F$(L,LL): PRINT F*{L,LL) 

NEXT LL,L 

CLOSE 

R=R+Y: IF R=Y THEN 1^0 

REM >>>>>>>>>> menu 

CLSl 

@ 36 /'main menu" 

g96,"l = SAVE DATA ONTO DISK" 

"2 - SORT DATA INTO A NEW ORDER" 



PRINT 

FRiCJT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

IP J>9 

IF J = 



"3 

"6 

"7 
"8 

"0 



PRINT" 

INSPECT/ ALTER/ DELETE DATA" 

ADD MORE DATA" 

CHECK LINE LENGTH" 

ARITHMETIC" 

LOAD EXTRA DATA FROM DISK" 



CHANGE MAIN TITLE": FRINT 
FINISHED"; PRINT 
WHICH NUMBER"; J: CLS 

THEN CLSO: GOTO 1230 
THEN 4170 



ON J (lOTO 1380, 1710^2100,2620.780, 840, 3120, 970, 4100 

REM >>>>>>>>>> saving data onto disk 

PRINT "INPUT AN 8-GHARACTER FILE NAME -",; 

INPUT H$ 

IF Ht="^' OH LEN(H$}>8 THEN I39O 

IF Y=0 THEN Q=0: GOTO 1490 ELSE Q^l 

PRINT "IP YOUR TWO DATA FILES ARE ascilSORTED THEY CAN BE SAVED A 

COMBINED-SORTED FILE," 
INPUT "DO YOU WISH THIS TO BE DONE? (Y/N)";A$ 

IF At<>"Y" AND A$<>"N" THEN 1430 
IP A$="N" THEN Q=0: GOTO 1490 

INPUT "WHICH FIELD NUMBER FOR SORTING? ";Z; Z-Z~l 
IP E<0 OR Z>B THEN CLSO: GOTO 1470 
PRINT: FRINT "CHECK THAT THE DISK IS IN PLACE. PRESS ANY KEY WHEN 



= "" THEN 1500 



1490 
READY " 

1500 IF INKEY$ 

1510 CLS 

1520 M-1; N=R-Y+1 

1530 PRIWT ^224, "SAVING 



YOUR ";H$;" DATA PILE. 



L- 
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151Q FWHITE Ht;A 

15 50 FVRITE Ht;B 

1560 PWRITE H$;GR 

1570 FWRITE H$;R 

1560 FWRITE H$;U 

1^90 FWRITE H$;T$ 

1600 FOR L=0 TO B: PWBITE HtiC(L); PWRITE H$;SL(L): NEXT L 

1610 FOR L=0 TO B: PWRITE H*;F$(0,L); HEXT L 

1620 POR L=l TO R-1 

1630 IF Q=0 THEN S=L: GOTO I65O 

I6il0 IF P$CM,Z)<P$(N,£) OR N>R THEN S-H: M=M+1 ELSE S=N; N=N+1 

1650 FOR LL=0 TO B 

1660 FVfRITE a*;Pt(3*LL); PRINT F$(S,LL) 

1670 NEXT LL,L 

1660 IF Q=0 OR N=R THEN 3-R ELSE S-^ 

16 yo jroR L=0 TO B: PWRITE H$;F$(S,L): PRINT P${S,L): HEXT L 

1700 CLOSE: GOTO 1310 

1710 REM >>>>>>>>>> sorting pi^ocedure 

1720 FOR L=0 TO B 

1730 PRINT "PIELD"L+1"IS "; 

17 40 IP G(L)=1 THEN PRINT "ALPHABETICAL" ELSE PRIMT "HUMERICAL" 

1750 IP P$(0,L)<>"" THEN PRINT P$(0,L) 

17 60 NEXT L 

1770 INPUT "WHICH FIELD IS TO BE SORTED" ;K: K=K-1 

1760 IP K<0 OR K>B THEN GLSO: GOTO 1710 

1790 IP C(K)=1 THEN 1840 

1800 PRINT: PRINT "CHOOSE THE REQUIRED SORT:-": PRINT 

1810 PRINT "1 =■ DECREASING (TOP FIRST) - INCREASINa" 

1820 INPUT M 

1S30 IF MOl AND MOO THEN GLSO: GOTO I8OO 

18^10 PRINT "CHOOSE AtiAlN;-'* 

18 50 PRINT "1 = PASTER" 

1860 PRINT "0 = RETAIN PREVIOUS SEQUENCES" 

1870 INPUT H: CLS 

IS80 IP HOI AND HOO THEN GLSO: GOTO IS^IO 

1890 FOR L=l TO R 

1900 N=L 

1910 IF C(K)=1 THEN 1920 ELSE IP M-1 THEN 1950 ELSE I38O 

1920 POR LL=N TO R: IP F* (LL,K)<F* (N,K} THEN N=LL 

1930 NEXT LL 

1940 GOTO 2000 

1950 FOR LL=N TO R: IF VAL CF* (LL,K) ) >VAL (F$ (N,K) ) THEN N=LL 

i960 NEXT LL 

1970 GOTO 2000 

1980 FOR LL=N TO R': IF VALCP$(LL,K) )<VAL(F$ CN,K) ) THEN N=LL 

1990 NEXT LL 

£000 IF N=L THEN FOR LL=0 TO B: PRINT P$CL,LL)s NEXT LL: GOTO 2030 

2010 IP H=0 THEN 2050 

2020 FOR LL-0 TO B: Zt=P$CM,LL): P|(N,LL) =F$(L ,LL) : F$(L,LL)=Z$t PRINT 

F$a.LL): NEXT LL 
3030 NEXT L 
20ilO GOTO 1210 

2050 FOR LL=0 TO B: H${LL)-F* (N,LL) : NEXT LL 
2060 FOR LL=N-1 TO L STEP -1 

2070 FOR LS=0 TO B: P$<LL+1,1S)=F$(LL,LS) : NEXT LS,LL 
2060 FDR LL=0 TO B: P$(L^LL)=H*{LL) ; PRINT H$CLL): NEXT LL 
2090 GOTO 2030 

2100 REM >>>»»»> printing 
2110 CLS 

2120 PRINT g9," PRINTING MENU "; 
2130 PRINT e64,"l = ONE NUMBERED RECORD" 
21 40 PRINT "2 = SELECTED RECORDS TABULATED" 
2150 PRINT "3 = ALL RECORDS TABULATED"; PRINT 
2160 PRINT "4 = RETURN TO MAIN MENU" 
2170 PRINT 1352, "INPUT YOUR CHOICE"; 
2180 INPUT M: CLS 

2190 IF H<1 OR M>4 THEN CLSO : GOTO 2120 
2200 IP M=4 THEN 1210 ELSE GOSUB 830 

2210 PRINT "FIXING THE REQUIRED TABULATION PARAMETERS:-": PRINT 

2220 IP Btl)=0 THEN 2260 

2230 PRINT "IS THE PREVIOUS TABULATION 

2240 INPUT "TYPE 'OK' OR 'NO'..."iA$; CLS 

2250 IF A$="OK" THEN 23 20 

2260 FOR L=0 TO B 

2270 PRINT "FIELD"L+1;F|(0,L) 



LAYOUT ALRIGHT?" 
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2380 INPUT "HOW MANY SPACES TO THE LEFT OF THE FIELD ENTRY" iRtL) 

2290 IP R(L)<0 OR RtL)>&0 THEH PRINT "DON'T BE DAFT!": GOTO 2280 

2 300 PRINT; NEXT L 

2^10 CLS 

2320 PRIMT ei60,"FLEASE CHECK THAT THE PRINTER ISREADY, AND THEN PRESS 

'ENTER' .'^ 
2330 INPUT A$ 

23^0 PRINT "THE PRINTER STILL ISN'T READY, FOR SOME REASON. PLEASE 
CHECK AND REMEDY," 
2350 PRINT *-2: CLS 

2360 IF M=l THEN GOSUB 2^70: GOSUB 2510: GOTO 2100 
2370 IF M=2 THEN 3^40 

2380 PRINT 6229. "output to the printer" ^ ^ ^^ 

2390 IF LEN(T$)>1 THEN PRINT ^-2 ,CHR$ ( U)T$ : PRINT *-2 .STRING* (LEN[T$) 

"=" )CHR$ (15 ) 
2400 IF LEN(F$(0,0))+LEN(F*(0,1))-0 THEN PRINT #-2: GOTO 2440 

2 410 PRINT #-2 

2420 L=0: GOSUB 2510 

2430 PRINT 1-2 

2 440 FOR L=l TO R 

2450 GOSUB 2510 

2460 IP L-INTtL/5)*5 AND L<R THEN PRINT 3-2 

2470 HEST L 

2480 PRINT #-2 

2490 GOTO 2100 

2500 REM >>>>> tabulating a record on the printer 

2510 K-0 

2520 FOR LL=0 TO B 

2530 K-K+RCLL): PRINT #-2 ,TAB{K)F$ [L ,LL) ; : K=K+SL(LL) 

2540 NEXT LL 

2550 PRINT #-2: RETURN 

2560 REjM >>>>> choosing, record number ^^ 

2570 PRINT g 160, "INPUT THE number- OF THE RECORD WHICH IS TO BE LISTED 

ON THE PRINTER (OR '0* IF NOT KNOW^f, TOBE SEARCHED FOR)-'* 
2580 INPUT L 

2590 IF L=0 THEN CLS: GOTO 2S3O ^^^^ ^ 

2600 IP L>R THEN CL30; PRINT '"THERE AREN'T THAT MANY ENTRIES!": GOTO 2 

570 

2610 CLS: RETURN 

2620 REM >>>>>>>>>> inspecting/ altering data 

2630 PRINT "PRESS -" 

2640 PRINT "aLTER dELETE INSPECT nEXT mENU" ; 

2650 DS=INKEY$ 

2660 IF Dt<>"A" AND Dt<>"D" AND Dt<>"l" AND D$0"M" AND D*<>"N" THEN 2 

650 

2670 CLS 

2680 IP Dt="H'' THEN 1210 

2690 IF Dt="N" THEN L=L+1 : IF L=<R THEN 2770 ELSE 1210 

27 00 PRINT "INPUT THE number OF THE ENTRY OR'S' FOR A SEARCH." 

?7 1 T NP UT Pi 

272 IF VAL(P$)>R THEN PRINT '^THERE AREN'T THAT MANY ENTRIES!": GOTO 2 

640 

2730 IF VAL(P$)<0 AND P$<>"S" THEN 2700 

2740 IF P$="S" THEN 2830 

2750 CLS: IP D$="A" THEN 2960 

2760 L=VAL(P$) 

2770 GOSUB 3090 

27SO IF D$="I" OR Dt="N" THEN 2640 

2790 INPUT "TYPE '00* TO DELETE (OR 'KEEP' TO RETAIN)... ; 

2600 IF Dt<>"GO" THEN CLS: GOSUB 309O; PRINT: GOTO 2640 

2810 FOR LL=0 TO B: P$ (L ,LL)=F$ tR ,LL) : NEXT LL 

2820 R=R-1; OLS: GOTO 2640 

2830 PRINT "WHICH FIELD IS TO BE SEARCHED^ (1 T0"B+1")" 

2640 INPUT N: N=N-1 

2650 IF N<0 OR N>B THEN 2830 

2660 PRINT "NOW INPUT THE "; 

2^70 IF C{N)=0 THEN PRINT "NUMERICAL "; 

2880 PRINT "DATA TO BE POUND," 

2890 LINE INPUT Ml 

2900 CLS: Q=0 

2910 FOR L=l TO R 

2920 IF M$-F$(L,N) THEN GOSUB 3090 

2930 NEXT L 

2940 IP Q=0 THEN PRINT "searched but with nil result" 



b 
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3950 
2960 
2970 
TRY. 
3980 
2990 
3000 
3010 
3020 



GOTO 2 640 
H=VAL(Pt) 
PRINT "INPUT 



NEW DATA OR 'ENTER' ONLY TO RETAIN PRESENT FIELD EN 



LEN(Pt(H,L))>SLCL> AND U=0 THEN SL( 
THEN F$(H,L)=LEFTt(P$(M,L),SL(Lj) 



NEXT LL 



FOR L=0 TO B 

PRINT F$(M,L) 

GOSUB 630 

LINE INPUT D| 

IP D$<>"" THEN F*(M,L)=Dt: IF 
L)=LEN(P$(M,L)): GOSUB 83O 
3030 IP U=l AND LEN(P$(M,L))>SLCL} 
30 40 NEXT L 

3050 CLS: L=M: QOSUB 3090 
3060 IF JOI THEN 550 
3070 GOTO 2640 

3080 REM >>>>> listing a record on VDU. 
3090 PRINT ^'RECORD NUMBER" jL 
3100 FOR LL^O TO B: PRINT PtCL,LL) 
3110 Q-1: RETURN 

3120 REM >>>>»>>» arithmetic functions 

3130 PRINT e64,"YOU CAN HAVE TOTALS AND AVERAGESPOR ANY NUMERICAL DATA 
, EITHER FROM ALL OR SELECTED RECORDS."; PRINT 
3110 PRINT "THE NUMERICAL FIELDS ARE:" 

FOR L-0 TO B 

IF G(L)=0 THEN PRINT "FIELD"L+1 iF$(0 ,L) 

NEXT L 

INPUT "'WHICH FIELD NUMBER" ;K: 

IF K>B THEN 31^0 

IP C(K) 00 THEN 3l40 

PRINT S64,"l = ALL RECORDS" 

PRINT "0 ^ SELECTED RECORDS" 

INPUT "CHOOSE 1 OR 0";M: GLS 

IF MOO AND MOl THEN 3210 

AT=0: AN=0 



3150 

3160 

3170 

318 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

32&O 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

ITH 

3460 

3470 

3^80 

3^90 

3500 

PRINT 



K=K-1 : CLS 



PRINT ^239, AT 
THEN AN-AN+1: PRINT #271, AN 



IF M=0 THEN 3320 
FOR L=l TO R 

AT=AT+VALCF$(L,K) ) 
IF VAL(Ft(L,K) )<>0 
NEXT L 

GOTO 3330 

GOSUB 3Ji70 

POR L=l TO 1000; NEXT L 

CLS: PRINT ^6 4. "TOTAL OF ''F$(0,K) 

IP M=0 THEN PRINT "FOR THE SELECTOR (S) 

PRINT "IS"AT:-IP AT=0 THEN 3420 

IF M=l THEN 3'100 

PRINT "ON THE" AN "RELEVANT ENTRIES" 

PRINT "WITH AVERAGE ENTRY OF "AT/AN 

PRINT "AND AVERAGE OVER ALL"R 

PRINT "RECORDS OF"AT/R 

PRINT e^^^lS/'FRESS 'ENTER' WHEN READY.. 

INPUT A$: GOTO 1210 

REM >>>>>>>>>> selective print 

PRINT "YOU CAN HAVE A PRINTED TABLE OF 

YOUR SPECIFICATIONS.":' PRINT 
GOSUB 3^170: PRINT #-2: GOTO 2100 
REM >>>>> selecting records 
PRINT "WORD KEYS CAN BE THEMSELVES OR 



GIVEN" 



PRINT 
PRINT 



"ANY KEY CAN 

"(INPUT AT 



BE = OR < 
ANY STAGE 



OR >.": PRINT 
TO ABORT BACK 



ALL RECORDS WHICH COHPLY W 



LEFT-END OR RIGHT- END. 



TO THE WAIN MENU.)": 



"DO YOU WISH TO SPECIPY 



1 OR 2 OR 3 SELECTOR KEYCS 



3510 INPUT 

}"iH; CLS 

3520 IF H<0 Oft H>3 THEN 3510 

3530 IF H=0 THEN 1210 

35^0 FOR L=l TO H 

3550 FOR LL=0 TO B; PRINT LL+1 ;P$(0 ,LL) : NEXT LL 

3560 INPUT "WHICH FIELD NUMBER"; Y(L) : Y(L)=YCL)-1 : CLS 

3570 IF Y(L)>B THEN 3560 

3 580 IF Y(L)=-1 THEN 1210 

3590 PRINT F$(0,Y(L)) 

3600 INPUT "INPUT THE SELECTOR KEY WORD OR KEY VALUE" jGtfL) : CLS 

3610 IF G$tL)="" THEN 36OO 

3620 IP C(Y{L))=0 THEN T(L)=1: GOTO 3700 

3630 PRINT "WHICH CRITERION -" 

3640 PRINT "1 = ONLY "GKD" AND ALL "G$(L) 
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3650 
3660 
3670 
3680 

3690 

3700 
3710 
3720 

3730 
37^0 
3750 
3760 
3770 
3760 
3790 
3300 
3810 
3820 
3830 
38iiO 
3850 

3860 
3870 

3880 
3690 
3900 

3910 
3920 
3930 
3940 
3950 
3960 
3970 
3960 
3990 
ilOOO 
4010 
4020 
4030 
4040 
4050 
4060 
4070 



PRINT '*2 = t'Gt(L)" AT LEPT END" 
PRINT "3 - "a$(L)" AT RiGJiT END" 
INPUT T(L): PRINT 
IP T(L)<0 OR T(l.)>3 THEN 363O 
IF TCL)=0 THEN 1210 

PRINT "INPUT THE REQUIRED SELECTOR -" 
"1 = "GICD" ONLV" 
"2 = UP TO "G$(L} 
"3 = AFTER/ GREATER THAM "Gt(L) 
V(L): GLS 
V{L)<0 OR V{L)>3 THEN 3700 
V(L)=0 THEN 1210 



PRINT 
PRINT 
PRINT 
INPUT 

IP 

IF 

NEXT L 

GLS 

FOR L-1 TO R 

PRINT L; P-1 

FOR LL-1 TO H 

IF P=0 THEN HO 80 

T{LL) GOTO 3840,3650>3860 



ON 
ON 
ON 

ON 
IP 



THEN P=0 



P=0 



P-0 



V(LL) GOTO 3870,3890,3920 
V(LL) GOTO 3950,3970,3990 

V(LL) GOTO 4010,4030,4050 
P$(L,i{LL))<>G|(LL) THEN P=0 

GOTO 4060 

IP G(YtLL))=0 AND VAL (P$(L;Y (LL) ) )>VAL{G$CLL) ) THEN P=0 

IP G(YtLL))=l AND F$(L,Y{LL))>G$CLL) THEN P=0 

GOTO 4060 

IF C(Y(LL))=0 AND VAL(P$(L,Y(LL)))<VALCa*(LL)) 

IF C(YCLL)}=1 AND F$CL.Y(LL))<G$(LL) THEN P=0 

GOTO 4060 

IP LEFT$(F*tL3Y(LL) ).LEN(G$(LL)))<>G$(LL) THEN 

GOTO 4060 

IF LEPT$(F|(L,YCLL)),LEN(Gt(LL) ))>Gt(LL) THEN 

GOTO 4060 

IP LEFT*(P$tL.YtLL)),LEN(GHLL)))<G*(LL) THEN P=0 

GOTO 4 060 

IP RIGHT$CP*{L,Y(LL)),LEN[Gt(LL)))<>G$(LL) THEN P=0 

GOTO 4060 

IF RlGliT$(P$(L,Y{LL)).LENCGt(LL)>)>G$(LL) THEN P=0 

GOTO 4060 

IF RIGHT$(.P$(L,YCLL)),LEN(G$CLL)))<G$CLL) THEN F-0 

|j ffV" rn r T 

IP P=l THEN GOStJB 3080; IP J = 3 THEN OOSUB 2500 ELSE AT=AT+VAL(Ft C 
L,K)); AN=AN+1 
4080 NEXT b 
4090 RETURN 

4100 REM >>>>>>>>>> change main title 
4110 PRINT "INPUT THE NEW TITLE" 

4120 IF T$<>"" THEN PRINT ''IN PLACE OP": PRINT Tt 
4130 PRINT: LINE INPUT T$ : GLS 
4l40 PRINT 896, T$: PRINT 

4150 INPUT "TYPE 'OK* OR 'NO".,,";A$: GLS 
4160 IF A$="OKt' THEN 1210 ELSE 4110 

4170 REM >>>>>>>>>> finished _, .^.,^, r.o 

4180 PRINT ei92/"ARE YOU SURE YOU HAVE FINISHED? IP SO TYPE 'END", OR 
ELSE PRESS 'ENTER' BY ITSELP," 
4190 INPUT D$: CLS 
4200 IF Dt<>"END" THEN 1210 

4210 PRINT e236, "finished": PRINT @26S, "datasort" 
4220 REM M,J. HOSKEN 
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VARIABLES used in DATASORT 




program -disk version 


A 

At 

AN 

/IT 
R 


MAXIMUM NUMBER OF RECORDS - LENGTH OF PtRMY 
RE-USE ABLE RESPONSE- 
NUMBER OF NON-ZERO VALUES BEING TOTALLED AND AVERAGED 
TOTAL OF ALL VALUES DURING ARITHMETIC OPTION 
MUMBER OF FIELDS PER RECORD MINUS 1 = WII?IH OP ARRAY 


! C(I3) 

i CR 

E 


FLAG; 0=NUMERICAL, 1=STRING 

FLAG; 1=AMEND RECORD WITH IDENTICAL FIRST FIELD 

RE-USEABLE RESFOHSE 


MAIN DATA AFFRAY, A LONG BY B WIDE 


H 
H 

m 


FIELD TITLES - IF ANlf 

SELECTOR FOR PRINT 

FLAG: 0= SOPH I STIC AT ED SORT, 1 = FAST SORT 

NUMBER OF SELECTOR KEYS 

NAME OF DATA FILE (TEMPORARY) 


H$(B) 

K 
K 
KK 


SPARE ARRAY FOR DOING SERIES OF SWAPS 

MAIN MENU SELECTOR 

FIELD SELECTOR FOR SORTING 

PRINT-TAB VALUE 

FLAG: 1=REOORDS HAVE BEEH COMBINED 


L 

LL 

LS 

H 

M 


LOOP CONTROL 

INNER LOOP CONTROL 

TERTIARY LOOP CONTROL 

CONTROL ONE SORTED LIST DURING PILE COMBINING 

FLAG; 0= INCREASING SORT, 1=DECHEASINQ SORT 


H 
M 
M 


FLAG: 0=SELECTED RECORDS SUMMED, 1-ALL RECORDS SUMMED 

PRINT MENU SELECTOR 

RECORD SELECTOR FOR ALTERATIONS 

DATA TO BE FOUND BY .SEARCH 

CONTROL ONE SORTED HfiT DURING FILE COMBINING 


N 

P* 

Q 

Q 

R 


FIELD TO BE EXAMINED IN SEARCHING 
RECORD SELECTOR TO INSPECT/ALTER/DELETE 
FLAG: i-SUGGES3PUL SEARCH 
FLAG: I^GOMBINE TWO DATA FILES 
NUMBfiR OF RECORDS IN MEMORY 


R(B) 
RP 
S 
S 

SL(B) 


GAPS TO LEn' OF PORHATTEn PIELDS WHEN PRINTING 

NUMBER OF RECORDS PER PAGE 

FLAG: O^WITHOUT GAPS, 1=GAPS INCLUDED IN PRINT FORMAT 

NUMBER OF RECORD TO BE PRINTED TO DISK PILE 

STRING LENGTHS OF FIELDS 


T(3) 
U 

V(3) 
W 


PRINTABLE TITLE FOR WHOLE SYSTEM 

STRING^END SELECTOR ONLY/LEFT/RIGHT 

FLAG: 0-PlELDS CAN GROW, 1=FRESET FIELD WIDTHS 

VALUE SELECTOR = < > 

TOTAL WIDTH OF PRINT LINE OP LONGEST RECORD 


X 

lf(3) 


CALCULATOR FOR FIXING POSITION OP INDICATOR CURSOR ' 

NUMBER OF RECORDS INPUT FROM DISK 

FIELDS INVOLVED IN SELECTION 

FIELD AS CRITERION FOR COMBINING FILES 

STRING LENGTH DURING INPUT FROM DISK 
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Mountain building 



I F yo u h ave booked f or a n u n k n own h olid ay 
destination, or are thinking of moving 
inouse, or you study geography, tinen liave 
a look at this program which may iDe of use 
to you By using a map with contoursand a 
ruler, you can measure off Ihe distance of 
thecontours from the lefl hand edgeof the 
ruier and reconstruct the shape of Ihe hiils 
or mountains you are viewing. 

The program works to scale, but this 
does mean Ihat the verlicai height tends to 
be rather low and insignificani unless you 
are reconstructing the Alps or the 
Himalayas. To get round this problem it is 
possible to distort the vertical scale to ex- 
aggerate the hill size. 

You cari: naturally print out any mountain 
drawn on the high resolution screen using 
a standard screen dump, but I have incor- 
porated two ways in which a quicker print 
can be obtained using a Tandy CGP115 or 
similar printer ThefirstmerelydrawE a line 
of the hill but the second way, obtained by 
pressing 'X' at the beginning of the pro- 



Anthony Daniel scales the hills with the help of contours 

gram, shadesthe hill rather neatly as in the thefigureon the computer followed by and 

exam pie. and al so coloursil on the screen. indication of the direction of the slope to 

I have set the default height between follow, as instructed in the program 



contour lines at 100 metres. This is pro- 
bably more than on most maps you wish to 
measure l3Ul it makes testing the program 
when setting it up easier. If the total 
available height (asgiven on the screen) is 
inappropriate to the hills you are measur- 
ing you must aiter the survey area, ff you 
place yourself a long way from the hill it will 
appear much smaller This is to enable you 
to see if a distant hill can be seen over the 
top of a nearer smaller hill. When 
reconstructing only one hill use the default 
distance of 1 km. In this section I have not 
taken into account the curvature of the 
earth bui it is not difficult to do so if you are 
mathematically minded. 

Once you have sel up the initial criteria 
based on the map you are using read off 
Ihe distance of the contour line from the left 
hand edge of the survey area (not the 
distance between contour lines) and enter 



mmediate corrections may be made. If 
you enter the slope wrongly simply re-enter 
it- If you put in an incorrect figure just back- 
space. However, to correct an error over- 
looked earlier on in the sequence end your 
reconstruction by pressing 'C, not 'F', Tliis 
takes you through a routine allowing cor- 
rection of each individual entry as required. 

Once the mountain is drawn press the 
space bar to discover the range of options 
available. As already mentioned you may 
reconstruct a second mountain or alter the 
vertical scale. If you wish to restore the 
original scale you must of course Clear the 
screen first. 

A program that changes scale in this way 
could be used to build up patterns and 
there are other applications that can be 
derived from it which have nothing to do 
with mountains, so I hope it will be ol 
general interest and enjoyment. 



5 ' 'mm' - CONTOUR RECOMSTRyCTIWJ PR05RA«*1ME lY ANTHONV DANIEL - HftRCH 1937 

10 PRINTI-2,CHR4ilS); PRINTi-2,'^^ PRMt-2,CHR*(19) ! 'PRINTER CODES FOR TANPv CQPllS PRINTER. 

DELETE IF PRINTER NQT IN USE 
20 PCLEARB 

40 F=l! CO=i 

5E PnODE3,l: SCSEE^il,!: PCLS 

afl CLS:PRINT:PSINT:PPIHT'F0R a+4DED PRMINGS OF MOUNTAIMSH.AFEE PRE3E T ELSE PRESB fe'Y OTHE^ KIV 

70 .S!t=lNKEVS: IF U^*' THEN 76 

SB IF n='r Tf^E^i ek^b else ex=i 

90 LLS;PfiIWT:PRIfJT:PRINTTAE(5!"SWLE":fPimAB(5)"ENTE*? NC, OF m, PER KM. °: PRlNTTftJ(5)'DEFAl'LT=23h?^ PH?^ K^'' INPUT5C 

100 IF SC=e THEfJ EC=20 

KB GOSl'E120: WSUEldflt G0T028B 

1;B PPiriTTABi5)"VIEUPijINT":PRINTTAB(5)"FOfi COMPARING SEVERAL HILLSDiSTANCE OF OBSEPVER MUST BE miii 

IN KIL0nETRES*!PRINTTAF.(5)'[£FAULT IS 1 KM IHIN. VIEW-ING DISTANCE.)' 
i3E INPUT VPS- IF VP=8 TttEN VP=1 
H0 L(L)=Vr 
;5B RETURN 

m PRlNT:PRIMT;PRINTTAE(5)*S!JR'v^Y AREA WIDTH IW m, ASCOVERE!} EV RULER ON 1AP'^PR!^JTTAl(5j "DEFAULT SMS i0f1??. 

IBS IMPIJT MM 

190 IF rtM=e THEN !11=t0 

230 IF MH<255 THEN [)=mT(255/Mri) 

2ie IF m>25k THEN D=l/(lNT(MM/'255)tn 

22BGOSUE17i0 

23i PPINTTA3(5) "OBSERVER IB PLACED IN THE HID POINT OF THIS U!DTH.':PSINTTAE>:5}^HEISHr AVAILABLE IJSIUG IHISSCAut 

AND AREA = MNTaPgBffl/iSC*^.^^ METRES' 
240 PRIMTTAB15)'T0 INCREASE HEIGHT iNCREASESL'R^tY AREA OR VICE VERSh"! PRINTTAE(5) "PRESS ft Ti> REM OR P TO PROCEED" 

25 e PM$-MEYt: IF R1*=''" THEN 250 

::fc0 IF PMi='P"' T^H RETLfffi^ 

270 IF P^*='R' THEN CLS^ PRINTTAE<5)'UNREVIS£D BL;R';EY AREA IS "JfPirHf^. *: P^l^'^- GOTOnfl: ELSE :^B 

2S0 CL3!PRINT:PRINT:PRINTTAE(5VC0NTOUR5'^:PRINTTABi5)'ffiTER CONmiR IMCRENE^" 

293 I^RiT CN- IF CN=B THEN CN=100 



■METERS. DEFALIT GIVES 100 H." 
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n 



^^ ™S'n'ZL^r ^^ ^^^'^'^^ "^^^^ '^^^^^ ^^ ^-"^^^^^ ^^^ S''^"^^^ HEIGHT USED SiOUID E£ TKE 

OBSERVER S HEI5HT. IF THE SHAPE OF ONLV mi HILL IS REWIRED ^IS IS I^Pf LEVENT' 

^^^ pt?i^?Z;,M5^Sl^« tI^I-^? ^ ? l^^^^ '^^"^^'^^S THE LINE Cf CONTOURS TO BE SUA- '^VED. ENTER THE DI3TWJCE OF 
hflLH LUniwH tmn THE left hand edge of the ruler." 

32B PRINTTABOi'SfPAR^TE EftCH DISTANCE BY THE SLt>PE DlRECTim ';'= ™RQ-^= DOyNWARD mii =3'- ' EVEL"'PRINT" 
(SIGNS ON SCREEN ARE + , - AMD =)■ ^ ^"' 

330 PRINTTAE(5rT0 END m SEQUENCE PRESS T'. PRIOR TO PRESSING F BEGIN mo END WITH A MIMEER 
SEQUENCESMUBT BE AT LEAST 4 NUMBERS LONG. "{ =/ «i m rt wjTTJJtK. 

340 PRI^fTTAE(5>'PRESS SPACEBAR TO CONTINUE THROUQHWT PROGPriMNE-i 

35fl IF lNKEY$=CHRt(32) THEN 363 ELSE 35U 

3i0 M="'' 

370 CLS: M=33 

380 PRlNTan.At;: Al="! G0SUE172B 

390 At=lWKEV*; IF A*=" THEW 39fl 

400 IF At='C' GOSUE1420; 5OTOi5l0 

410 IF AM'F' AND PV=] THEN m 

420 IF M="F' THEN 50StJEH2Bf G0T063B 



40 IF LFKfE*(A)) 



;MSJ BifAJ=L£irT$(E*{A;,La;{2?(Af)- 






450 &H039i 

^60 IF ASC(At:'>47 AND ASC':Ali;5a THEN 530 

478 IF At=";" THEN At='+° 

4Se FF At="3' THEf^ A*='=' 

4?a !F £*-■ + " OR Et="-" OR Ei=''=' THEN FM 

5m IF A(='+» OR At='-» OR A*="=" THEN PH=1: 

S0T05ie: ELSE39e 
5ie IF PV=1 AND PU=1 THEN Ef=A$r GOTO3B0 
52« Et-Ai: »1=M+i; GOTO3B0 
;30 IF PH=1 THEN 5nSUE5j0 
540 E*=At:Et!A)=Bi(A)+Att M=rti-lr GOTOjSB 
55B IF ti-"*" THEN GOSIJB1420 ELSE 578 
5fl0 C-A+i)=C+i:C=C{AH):B*fA)='":SaSUE145BJGOTO610 
570 IF Et^"-' THEN G0SUE142a ELSE 590 
5Ba CiA+n=C-l:C=C(A+l);Eti:A)=";SOSiJBl450:5OT&ilfl 
590 IF E«='=' THEN 5OS1JE1420 aSE i2e 
m C(A+l)=L:C=CiA+l);Bl{A)=*'! SOSiJB145BiG0T06iB 

tie p^/=i3fpu=a 

62'a .RETURN 

630 ' FINDS HIGHEST AMD LOWEST KUNTS 

fr^ FOR N=0 TO A 

650 IF N^a THEN I=C{N}: W=cm)r GOTOoflB 

ii0 IF C(N)::-Z THEN Z=CfN;: u'=N 

670 IF C^NKW THtH H^C(N) 

iSe NEH 

i9e IF lJ:-0 THEN 70B ELSE 750 

700 FOR N=a Trj A 

710 C(N)=C(N)-H 

720 NEH 

73C i=I-U 

740 ' RELATES SCALE AND CO^STO^jR HEISHT TO SCREEN 

m FIN&S SCREEN &MRDINATES 
750 G=CN»SC*D/1000 
76B Ph(iDE3,l: BCREENl,! 
77B FOR W^ TO A 

7B0 ^{N)=(B(N3*D+PS)+fi240-INT(ffl1*D*PS))/2) 



790 y(N}=19fl-INTfPS*C(N)#G*F) 

afl0 QOSUB14i0 

Slfl NEXT 

32fl FOR N=1S TO A 

030 PSETiX(N3,y(N)} 

B40 IF N=fl THEN 850 ELSE 8BB 

550 IF y-(A)<¥(B) THEN LINEaiA),Y(A) !-(X(A),¥(Bn.PS£T: 

LINE()((A)TY(B))-L)((0),¥i0)},PSET: G0T0B9a 
aia IF ViA)>y<0) then Lr>EfX[A)Ty(A)}-fH0),ViA)),PSET; 

LINE(^(0),Y(An-(K(0hVI0)),PSET;5OTCfe9fl; ElSf LINE 

a<A),¥fA))-(X(0),Y[0)hPSET 
870 GOTOa90 

3S0LlN£(KfN-l),V(N-U)-(nN),¥(N)),PSET 

B96 NE)fT 

900 IF £1=1 THEN 100B 

910 ' PAINTB MOUNTAIN ON SCREEN IF RECWIRED. PRESS T 

FOR THIS AT BEGINNING OF PRMfiAmE 
920 FOR N=l TO A-1 
930 IF Y(N)>y(N~l) THEN Y=V(N)-2 
940 IF Y(N)=y(N-lJ THEN NEJfT 
?50 IF ¥(N)<y(N-i) T^EN T=YtN)+2 
^6B Jf^XfN) 

970 IF PP0MiX,V)=5 T^CN PA:NT(J(,yj,C0,8: GOTO9e0 ELSE 9S0 

9B0 rJEKT 

990 Cl>=C(j+l ! IF C0>3 THEN CO-i 

1000 Fi=lNKEy$: IF Ft="' THEN 1000 

1010 IF Ft^CHR*(32: THEN 1B20 ELSE 1170 

1020 IF ai=a THEN GN=1: GOTO1040 

103B IF SN=I THEN GN=0 

1040 IF GN=1 THEN aS: ELSE 1150 

1050 IF L.>B THEN 1100 

lEAP '3r„oDrt5.nt note - THE 1ST THREE OPTIONS TO FO' LOW ARE 

ONLY AVAILABLE WHEN ONLV ONE MOUNTAIN IS RE CONSTRUCTED 
1070 PRINT-TO INCREASE HEIGHT/LENGTH RATIO PRESS 'H'* 
J030 PRINT'TO RESTORE HEIGHT /LENGTH RATIO PRESS 'R" 
^090 PSINT^TO ALTEfi S^fiVEV AREA WI&TH PRESS '«'* 
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1100 Pf(lNT"ni RECOrJSTRUCT AMOTHEP MOUNTAIN PRESS 'M" 
urn FRIWT'TO REVIEW PICTURE PRESS 3FAC£B<\R' 
112S PRWT*TO PRINT OUT PRESS 'P" 
1130 PRINT'TO CLEAR SCREEN PRESS 'C" 
a^ GOTOiaSB 

1150 pmmA: sKEaiii 
i;60 &:iToiEaa 

117a !F L>e WB 1240 

nm ' 'r ib the ^rtical scaling factor 

119S IF FJ-'H" THEN F=F+.2: GOTO760 

1290 IF F^='y TroJ 1210 ELSE 1233 

I'M GgSUEIta 

1220 GvT0T53 

1230 IF Fi^^r THEK F=i: 5CiTCJ7Ae 

12^0 IF FI='C* THEN PN0DE3,1: SCREENliU FCLS; 50701033 

12:50 1=^ FI^"M' THEN l2iE ELSE 1310 

1260 FOi? N=0 TO A 

127S EI(M;='*! B(N)=a: C!f^}=e: )((H)=0: ViN)=E 

12SC h£)(T 

1290 L=L+!: CIS: GOSUBIZB 

13313 GOTO2B0 

1310 IF Ft="F" THEN 1326 ELSE 1410 

1320 E=3 

1330 FOR H^ TO A 

n'»0 IF ES^B TKEM GOEUE1790 ELSE Efl=V(N) 

1350 IF N=0 TKEN PPIMTi-2,"H' jK(U) f\"?-EA: ELSE 

FRIMTt-2,"D-f)ffN)r*';-trt 
13i0 NEKT 
1370 JF V(A})V(0) THEfi PRINTft-2/D' ;^.(0) i'l ^'^'^^^ 

PRI?^Tl-2,»D";l{0)r,";"Vi0) 
1330 IF V(A)<'y(0I THEM PRINTtl-2, "D'fSKAJi's'f-VSB): 

PR:NTtt-2, "E";X(0);"i*»-Vi0) 
1390 IF ¥^A}=V'(0) THEfi PRINTt-2, 'DM^tB) ri';-Y(0) 
1400 IF ZZ=1 AND L^a THEN' F=E+2! ZZ=0: G0T01338 ELSE 1000 
1410 K'TOlSSa 

1420 ' THIS IS THE HORIIffl'ITAL MEAS'JR£flENT 
1430 E(A)=yAl^E$(A)I 
tM0 RETURN 
1453 A=A+l! REVMi 
:4i)3 IF S(N)<0 THEN XiW)=a 



1470 IF X{K)>255 THEN )((JJ)=255 

i4ge IF V(N)<0 TKEN V(N)=B 

1490 IF V(N}>191 THEN V(N)=191 

1500 RETURM 

1510 FOR U=416 TO 5Ifl 

1520 PftINTS!J,CHRHi43); 

1530 NEr 

1540 ' CORRECTION ROUTINE FOR INCORRECT ENTRIES. I H^W'T 

IMCLUDED FACILITY FOR SLOPE CORRECTION. VOU HAD BETTER 

START AGAIM IF YOU H P.Vl GOT THAT HRONS AS UEuL! 

PRINTa32a,'T0 CHECK OR CORRECT ENTRIES" 

PRINT34a3," PRESS C FOR CORRECT, F FOR FAULTY'; 

HI-='EVE LEVEL" 

FOR t.J=3 Tt; A 

IF N=C. THE^J 1640 

IF C(N)>C{N'n THEM t^*=^ RISING* 

IF C^rtr<C(N-l) THEH Hl=' FALLING" 

IF Cm<m THEN Ht^'EVE LEVEL" 



1550 
1560 
1570 
15S0 
1590 
16Se 

uie 

lii20 
ic3fl 
1640 
1650 

la70 
i^B0 
li9B 
I7E0 
1710 
1720 
1730 

1750 
17i8 
1770 
17BB 

1790 

isee 
m\s 

1S20 
1830 



IF C{^i=C(N-n THEN H$="L£VEL' 

FR IfJI3352 , ' READING' ; B( ^i) , " HEI WT' iHI- 

f^$-''INKEV«: IF m=" THEN li»53 

IF m=*C' THEN 1700 

IF ^'i='F* THEN 16S3 ELSE 1653 

INP'JT"fl£AEINS'a^ri> 

PRINTS3B3,"! 

NEXT 

'3-}T063« 

ED^IMT (1 90000/ (EC#D)) 

PRIKT34li,"HElGH' AVAILABLE ";ED 

, i.^.mii-r-fu^ jL.'!Ht.l flJ-lwr^ I I ll f 

PRIN:3430, "HEIGHT ';C(A3*CN; 

IF L=0 THEN PS=l! RETIJRN 

PS=L(L-1)/L1L}: RETURN 

' THESE LINES ARE CONCERNED WITH SHADED PRINTINGS 

on THE CGPliS PRINTER 

EA=Y(N)fE; 

IF Y(A)>¥(e) TFEN EE=Y(A} lLSE EE^VO) 

IF EA^'EB THEN EA=B 

IF EA<EB T^EN ;Z=1 

RETURN 



The Grofita lockrujT HourvtafA ll^ f^strla 



GL&c ier 




Ui^upo iftt 



DorletGTtftl 
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Dragon Answers 



Save/Load 

I write on the subject of save/load 
sequences for the Tandy/Dragon 
machines. I amcoitvierting the follow- 
irg cod& and need io know the same 
for Dragon Basic. 

OPElyD':#1,FILE$+-/GPH':33 
F0RRUM=1T0RNUM 
PRINT ^-ITEST(RUM): 
PUT ^-1. RUM 
NEXT RUM 

PRINT S-1NAME$:PUT?'-1 
PRINT #-1.B0T$: PUT fJ-1 
PRINT tf-1,SIDE£:PUT #^1 
CLOSE #-1 

OPEfJ -D-, n,FlLE$+'7GPH"^3 
F0RRUf^=1T0L0F(1}-3 
GET#1:INPUT #1.TEST(RUM} 
NEXT RUM 

GETJ^1:1NPUT n, NAMES 
GET#1:1NPUT n.BOTS 
GET #1:INPUT#1, SIDES 

Maarten \^n Wamelen 

3 LynmelesSraat 

Belgium 

THESE Iwo rouflnes are simply 
saving an array ol umlnera. fol 
I owed by Ihrte sirtngs ta a serta I di sc 
file on the CoCo. You can use the 
fpllQwing DragenDQS routines in 
their place: 




CREATE FIS+ '.GPH" 
FWRITE FIS+ '-GPH"';RNUM 
FOR RUM=1 TO RNUM 
FWFITE Fl3+".GPH'';TESHnUMl 
NEXT RUM 

FWRITE FIS+nGPH"-NAIVIES 
FWRITE FIS+".GPH":B0TS 
FWRITE FIS+.GPH";SmEJ 
CLOSE 

FBEAO FIS+",GPH' ;RNUM 
FOR HUM=1 TO RNUM 
FREAQ FIS+ 'CPH' ;TEST|RUM> 
NEXT I 

FLREAQ FIS+'GPH ';NAME5 
FLREADnS+",GPH';BOT$ 
FLREAD FIS+ ',OPH ';SIDES 
CLOSE 



Empty printer 



I HAVE recently been offered the use 
Of a redundant Amstrad PCW 8512 
printer Would it be possible to adapt 
thistowDrkwithmyDragon32?lfso, 
what type of lea<l anti power source 
do I need? 

ftoy Dean 

53 LutwoFth Roati 

Eccles 



THE problem with the PCW printer 
is that most of the electronics and 
the power supply ^re npl in the 
printer itsell tiul in the PCW com- 
pjterTherEfar^ifwquldtieuBfydif- 
t i Cull to 1^0 rtriet;! these primers to any 
other computer (and somewhat ex- 
pensive if It's even possible). 
However one of ojr readers may 
know otherwise.,,? 



If you've got a tecltnlcal question write to Brian Cadge, 

Please do not send a SAE as Brian cannot guarantee to 

answer individual inquiries. 



Raves fram 
the grave 

DUE to the postal problems in the 
London area we're trather short on 
readers enquiries this month. 
Therefore, I am taking the opper- 
lurity to reprint a couple of small 
routines which I'm regularly asked 
about. 

This first routine origimally ap- 
peared in the March 1984 i^sue of 
Dragon User It placed at the tiegin- 
nmg of your program it will disable 
:?oth the LIST and LLIST commands 
SO that , used in conjunction with an 
A JTO RU N routin e. yo u r code i s pro- 
tected from pryirtg eyes. 

ID CLEAR 200,32620 

20 TS=PEEKt291|'256+PEEK(Z92} 

30 FOR 1=0 TO 117 

40POKE3Z650+I,PEEK(I+TS) 

50 NEXT I 

&|} DISABLE LIST C0M1VIAND 

70 POKE 3265{)+4e,134 

&D POKE 32650+43,22 

90 DISABLE LLIST COI^MAND 

100 POKE 32650+58,134 

110 POKE 32650+59,22 

120 FOR 1=0 TO 6:HEAD AS:POKE 

32621 +l,WL("SH"+AS):NEn 
130 OATA BE,7F,8A,BF,01,23,39 
140 EXEC 32621 
150 REST OF PROGRAM,... 

THIS second routine originally ap- 
peared in the December 1983 issue. 
It provides an ON ERfiOR RUN facil- 
ity so that tf an error occurs the pro- 
gram simply re- runs itself This is 
useful for prog rams that will be run by 
n on -computer users to whom a 7/0 
ERROR' could be quite alarming! it 
can be disabled by POKE 401 ,57 and 
re-enabled by POKE 401,126. 

10 CLEAR 2IH],3274g 
2DF0RI=1T0ia:nEADAS: 

P0KE32749+J,UALCAH'+AS): 

NEXT 
3G DATA 32.E2,BD.S4.IF,B0.B3,ED, 

7E,84,9F 
411 POKE 402 ,127: POKE 403,238 
50 POKE 401 ,126 



More 
windows 

WITH regard to your Windows pro- 
gram published in the July 1965 issue 
of Dragon User, is it possible to 
modify this to use more windows (eg 
5 to 9) as I find 5 is not enough? 

Cfiris Steele 
1 Spey Walk 

Holytown 
Lanarkshire 

Scotland 

IT'S certainly possible to add more 
windows, but ynuill need to re- 
assemble the program to do it, First 
of all set jp more data areas at the 
end o1 the code, each 7 bytes long 
(label1lieniWIK6 to WINia)and in- 
sert them just before the USRLOC 
label line. 

Next you'll need to change all the 
errarcheckswhichassumeonlyhve 
windows, ie the lines at adcfresses 
7CDE and7a49in Ihe lisling. Final- 
ly, re assemble the listing and save 
lotape. 
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SPECIAL OFFER! 

Exclusive to Dragon User readers 

Dragon User and Abbott Computer Products have stocks 
of three well known Dragon books which are now no longer 
available from the original publishers. This means that we 
can offer them to readers at much reduced prices while 
stocks last. 




i£.4>A!> Ami VvQ 
Willi lOlR 




^ Load and Go with yaut Dfagon by John 
Phipps and Trevor Tarns. A popular starler's 
collection of programs with ^ucalional 
iiinls, a section on debugging, games, and 
a Wumpus. 128 pages. El .95 



The Power of the Dragon by Jolin Slnarp ^ J 
and Dgvid Boilion. A guide to progfamming | 

I lie Dragon , und ertahe n t h roug h a collec- 

tion of 30 enlerlaimng programs Irom 

games lo VATcalculadon. 175 pages, £2.75 




These books have been 
travelling around locking for 
Dragon owners for some time, 
so although thfiyare in 
perfect nick inside, most of 
the covers have a tiny dent, or 
sticker mark, or other small 
token of life's experience. 
These, like the low prices, are 
all part of the natural beauty 
of cut' price books, and do nol 
affect their perform a nee, 



Dragon IVIagIc — Your 

first programming book 

by Ric^larcl Wadman. 

This is a progrannming 

primer, approved as a 

Dragon teacliing book 

by Dragon Data, itdeal 

for ygungsters (or not SO 

youngsters) starting 

out. Willi iine and 

colour illuslralions. 53 

pages, £1.50 



NAME 



The Mrsi 450 orders will also 
receive a FREE GAME - 
Bonha is a latJders-and- 
platforms game tor the 
Oragon 3?, It's not one of the 
great DRAGON classics. Its 
not even new. But it's a great 
waylo hill off those idle hall 
hours when you feel like a 
ttreakfrom read]n>g or pro- 
grammingi ... and it's free. 



Please 

send me th& 

foJ lowing DRAGON 

books: 



LOAD AND GO, CI 95 each 
THE POWER OF THE DRAGON, C2 75 each. 

DRAGON MAGIC, et 50 each 

TOTAL 
ADDRESS 




POSTCODE 

Flea&B mattacul Cl^qutS SfiO posMI prde-rs \o Sco* Press Ltd (Dragon bdOksi 



Bank account empty? Don't know where tKe money goes? 
Can't afford an accountant? Or even a lock-up wallet? 

You should have DRAGON HOME ACCOUNTS for the Dragon 32. 

• A 4pp booklet describes the options for storing your monthly Iniouselnold transactions on tape, nnaking ^^ Please 
forward estimates of expenditure and reviewing your budget to date ormonth by month ^^ send me 

• The accompanying program wasoriginafly marketed by Gemini Marketing at £19.19. DRAGON,.,^ of dragoon 
user's special offer price is £6.50, IhJCLUSIVE of postage and packing . The program comes/^ ^qj^^ accounts, 
on cassette only — we regret there is no disc version available, ^^^ at ce eo each total 

• DRAGON HOME ACCOUNTS can handle up to 150 transactions a month of up to^ ^,^„^ 

.^t^ NAME 

El 0,000 e ac h , The prog ram can d is p lay a ba r g raph p lot of mo n th ly ex pe nd i tu re 

on. any particular item, and store fixed values for regular monthly ^ address. 

outgoings. Information from earlier months stored on separate tapes 

can be loaded into the program, ^^ PJeasBniake™lthB«|u*ii3r|5M(alor.Jer3lioScPlPreBaLtd.(Hor™ADCounls|- 

IMPORTANT: When ordering special offer items, you can send your orders for BOOKS and lor HOME 
ACCOUNTS to us in the same envelope if you wish, but please make out payments for fiOOKS and 
for HOME ACCOUNTS on separate cheques, and send them with the separate coupons provided 
(photocopy Gouponsare acceptable). This helps us to keepthe flow of orders separate, and send tlie 

goods DUl more quickly. 

Sendyouf orders to Dragon Userat 12/13 Little Newport St , London WC2H 7PR marking 

the envelope DRAGON SPECIAL OFFERS- 
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Winners and Losers 



A request for assistance from a number of 
readers, in particular from Keith David of 
Grawiey, who is haviing difficuity with his 
cuberoots! Well, we all have our problerrs! 

"Please," he writes, "can you say 
sofTiething about testing for cubes?" 

Like rrany competilors, he had 
discovered that determining if a given 
number is a perfect cube is not as 
straightforward as it might seem at first 
sight- The logical method would be to 
evaluate the cube root and then test this 
number to see if if was a whole number — 
perhaps using a simple routine such as; 
R=NT(Vs): lFR = lMT(n)THEN .... , where 
W is the number under test and R its cube 
root. (Note to non-mathematiicianisr Rais- 
ing a number to a power which Is a 
reciprocal is equivalent to finding the ap- 
propriate root of that numiaer) 

Unfortunately, with the Dragon, as with 
most micros, this doesn't always work. 
readers who are interested might like to try 
listing 1, which tests the cubes of the 
numbers from 1 to 999. The program itself 
isquite simple, and yet it just doesn't work! 
Starling with a number N, its cube isfound 
by direct multiplications (C), The cube root 
(R) is then calculated using the line 
R=Cl(V3). In an ideal world R should, not 
surprisingly, be equal to the original value 
N, and so line 40 should print out a com- 
plete list of the integers from 1 to 999. In 
fact, it succeeds in printing just 1 19 of these 
numbers — so 350 of tJie numbers tested 
have resulted in an error being made by the 
computer, 

So what has gone wrong? TaiKe the 
number 1728. the cube of 12. If we type in 
PRINT 172eT|V3). the result, 12 is printed 
onto the screen, so all would appear wed. 
Now try IF 17281V3) = 12 THEN 
PRINT'CORF^ECT ". As this results in no 
message being printed, the computer 
clearly regards the two values as not being 
equal — which we know, miathematically, 
they are. 

To get adueaslo what is happening type 
PRINT l72et(V3)-l2. Instead of the ex- 
pected zero we get the result 
7.4505a06E-09. This Strange number, and 
note the E-09 at the end, actually 
represents the value 

0.0000000074505806. What has happen- 
ed is thai t h e com p ute r, d u e to its met hod of 
calculation, has evaluated the result as 
12.0000000074&05806, and this minor dif- 
ference from 12 exactly has affected the 
result of the test. The reason for this inac- 
curacy IS that the computer evaluates cube 
roots by converting the number to its 
logarithmic value, performiing a division,. 
and then calc u lat i n g th e t n verse I og of t h is 
number. As the computer can only work to 
a finite number of decimal places, and the 
logs involved are irrational and exist to an 
infinite number of decimals, it is necessary 
tortfiecomputerto make an approximation 
— which, as we have seen, can result in an 
apparent error. 

So how do we get around this problem? 
One method which has been mentioned 




before in the magazine, is to convert the 
value into a stnng variable, and then back 
again into a numenc variable, before per- 
forming the test. In listing 1 this would be 
effected by inserting line 35: 

35R$=STRS(R):FI=VAL[R$) 

Unfortunately, although Shis innproves 
the performance of the program, it is still 
not infallible. The success rate rises to 557 
out of 999, SO clearly a better method of ap- 
proach is required- 

My solution isgi^ven as listing 2. which 
relies on the fact that a straight nnultiplica- 
tion (as in line 1030} is exact, at least as far 
as a nine-digit product is concerned. The 
method that is used is quite simple; 

i) Find the approximate root 

ii) Reduce it to its integer 

iii) Cube this result and compare with the 

number under test. 



Every tnonth, Gordon Lee will 

lool( at some prize programming 

points from a previous month's competition 



The reason tor test i^ng two values at line 
1020 is because sometimes the calcula- 
tion results in a value which is just under 
the correct answer. For example, the cube 
root of 4913, the cube of 17 is assessed as 
being 16.999999, ,. so the extra step is in- 
cluded to cover this eventually. The actual 
lest is indicated by setting a flag (FL) to 1 if 
an exact comparison is made. 

With regards to the competition itself, 
the main difficulty, apart from the one just 
mentioned, was the length of time that 
some starting values needed to run before 
coming up with a perfect cube. In par- 
ticular, a starting value of 19 will not ter- 
minale until a score of 125000 has been 
reached. Several entrants realised that as 
the interval between each successive pair 
of cubes gets progressivly larger, there 
comes a point when a method of speeding 
up the calculation is desirable. For exam- 
ple.acompleteci rcuit of theboard, scoring 
210 points,cansometimesbe added inone 
operation. 

For an alternative method of solution 
please refer to my own solution on page 6 
of August's issue- 
Finally a couple of correcti^ons to July's 
Winners afidf.osers.Thenumberofpossi- 
ble grids is 10^^ — not 1036 as printed — 
no small difterencel! I Also the dissection of 
the grid as given towards the end of the 
page should read: 

"...in a 6x6 grid there are 14 six-digit 
numbers, 32 five-digit numbers, 54 four- 
digit numbers, SO three-digit numbers, and 
110 two-digit numbers, This makes a total 
of 29Q numbers. Each of these can also be 
read in reverse, making 580 in all. Finally, 
there are 36 single-dig it numbers, bringing 
the grand total up to 616," 



Listing 1 










10 


FOR N=^-l 


TO 


-:rlf9 




20 


C=N*N*N 








30 


P-Ct ( 


:i/ 


3^ 






40 


IF R= 


.M 


FHEN 


F=-RINT 


N^C 


50 


NEXT 


N 









Listing 2 




1000 INPUT y 




1010 R^Vt'Cl/^) 




1020 rL=0:rL-]R F--=INT(.R> TO IHKR+n 




1030 IF r*F*F:==V THEN FL=1 




1040 NEXT F 




1050 IF FL^l THEN RRINT "CUBE" b:.LBii PRINT 




"NQN-CUBE" 
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Down in the dumps 

Dragon User presents another selection of screen dumps from readers 



Epson FX-80 

The foilowing routine pokes in 219 bits of 
data and when executed looks at the 
screen in an X Y formal lo print out the con- 
ten (s of til e screen, Aftaclied to llie end of 
the program is a sample listing numbers 
from 1000 on. The normal procedure for 
saving machine code programs should be 
used after proving the procedure works. 

A.R.Butt^fhBld 



30 t'Wm 

JO »Efll II 

*0 IF OJZ767 Oft xaViim THEN ST OR 

30 iF li'-W THIN 80 

40 PM l,VAL('iH'+HJ 

TO 1I"JH!6DT0 30 

9« l=liH7F0O 

% READ Jtl 

m IF X}3Z7i7 Ofi X^HTOFF THEN STDP 

UO IF n='lV THEN W 

120 fDK£ t,VfliriH-tltJ 

m r'VtJiBDTD fi 

Ha GOTO iHW 

150 ttflTft3136,BE,lD,E0,i0,B£JP,O0,10,EF,TF,£3,BB,TF,00,C6,C0,10,fiE 

liO llflTft7D,<HJ,F7,7F.£l,*4,B4,43,BD,7F,2i,BD.8O.0f,a6,0O,Blt,Hl,0F,30 

m BftTfl8B,£0,7A,7F,EI,f4,7F,El,Cl,frD,It,£5,86,IJD,8D,80,OF,10,eE,7D 

IBO DftTllO0,l0,BFJF,E3,BIl,Tf,4F,3<>,BlJ3,01,B(;,l£,0O,2i,C0TJ5iSfiiJ'? 

m DATAZZ,ei,!B,aC,3C,0r,ai,41,GD,e4,$F,S4,<y7,BD,eD,(IF,Bi,IB,Blf,S( 



ZOO DftTfti3f.fli.4E,BD,S0,OF,86,60,iB,i0,OF,Bi,01,BD,S0,0f,i9,12a2,12 

210 MTft5F,4t,S6,56,*i,5i,Si,*fi,56,5i,46,S4,E7,A*,7C,7F,E4,10,i>E,7F 

220 JflmJ,5F,4ii5fi>56,*fi,54,34,U,Si.5t,<4,34,fT,TF,£2,|i],7F,E2,I? 

2J0 DflTAi;,l1,B]t.7F,(H>,C4,CO,F7,7r.Ei,fti,A*,12,BD,B0,OF,e6,00,BD,fl0 

:*0 OflTft W,3l,flB,O!,7fl,7F.£l,Fi,TF,El,Cl,0O,2A,E8,et,6&,BI),60,0fJ? 

250 BfiTfl "W 

mo PllODE4.|[PCLSIiSEREEHl,<) 

lOlO N-2!P><tATHa) 

1*20 rO=BO/N/M 

1030 BfiftWBHt'+ETftniNTilli-VO*!)} 

104O FDft 1-ft TO 255 STEP 2 

1050 r*ie6-Ti3-rCiiC0B1N»2*Pi*«/2^3! 

ItiO LIH£-C>JI,PSET 

1075 XT'l+2*V0*«tP[fyy255*;iN!N*2*PI*K/255l 

1080 vi-OiiF n<o THEN iMtn=i*2yMi\2mPimmHmwi*in^tt) 

mo IF 1IT;255 THEN lT-255jn=-(255-Jlt2S3/(2»N#Plit0*SINlllt2»PI»I/25!n 

WO LlHE-(njn,PiftES£T 

2m LPflM"BH'*3TR*!X>+',"+STR*(l»TtVH 

20?D H£1T 

2050 C[Ei:iHTEOO 
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Tandy Color Graphic 
Printer 

This program is a screen dump for the 
Tandy Color Graphic Printer, though it may 
wo r 1^ n othe r p r i nte r/plotte rs , 1 1 u ses all f ou r 
colours and dumps sideways on the paper, 
in order to give the largest size. Any colour 
that is not available on the printer is shown 
as whito- The dump is not solid colour, but 
made up of a series of nnlnute squares, so 
saving ink in the pens, If your machine can 
taKe it then ii is advisable to use the speed 
poke (POKE 65495,0) ( Remember you have 
been warned against using the speed poke 
— Ed.). Even so while the screen is being 
dumped, it is advisable to leave it and do 
something else. A whole screen can take 
around 40 minutes, depending on the 
number of colour changes. 

J.FSingtefon 

12 REM (CJ J.F.SIMGLEiOM 

20 REM JOHN TO tTT FRIENDS 

30 CLS 

■10 INPUT "SWITCH PPIhlTtR CN TI^EN tNTER"; 

50 PRJWrS-2,CHR*C18J 

b(i INPUT "UH(^T PHDOE IS THE PICTURE ON"; 
PM 

70 INPUT "HHfiT Pl^GE IS THE PiCURE W ;Pf^ 
ae INPUT "HHftT COULOUP SET IS IT IH" ;C£ 
30 INPUT "TOP L'gfl CO-OPDIN^T£S OF ^PEA 
TOEE DUMPED (?<, V)" ;Tx, T^^ 

iQS INPUT "BOTTOn RIGHT CO-ORDI NATES OF 
RKEft TO Bt" DUfiPED CX, YJ" 5SX, ST 

U0 IF pri<;i OR pn>4 then primt "inualid 

EUTRY, DO aGRIN"!GOTG 190 

12Q IF Pf^<J OR Pfi>8 J\-\£[^ y'Rim "JNOflLID 



Tandy CGP-115 

This ts a two colour screen dump for the 
Tandy CGPH5 printer. In the first part the 
foregnjund odour and colour set are defin- 
ed by the user, in addition to this is user is 
able to choose the colouf of the hard copy. 
The main part is from line 170 onwards. 
These linesset the printer tographics mode 
and select the drawing colour. As the printer 
paper is not wide enough to allow a double 
size screen dump the normal way, line 250 
changes the X co-ordinate so the picture is 
drawn vertically down the paper. The 
screen durrp enclosed took just over 2 
hours. 

R Marlow 
IP 'CCJ :^0-'5^8> p. nnRLGU 
20 pnOPE 4, i 
30 CLS 

40 PRIMI TFiBCl J ;"CGP-J1^ TWO COLOUR SCRE 
EN DUHF" 

50 PRIM TrIECl J ;STPIN5*:30, ■■ = ■■] 
60 PPKvIl ;PRJN! 

?0 INPUT "WHICH FDREEROUND COLOUR [0^i^5 
ViPC 

eS IF FCO0 fim FCOl PW FC0 5 1 |-IE^ 30 
3P IMFUT "'.^HlCh! SCREEN C0^]J-;5C 
:fe PPlNTa256, "CHOOSE HrtRPCOPT COLOUR" 
1J0 PRINT "0J- BLf^CK" :PRINT'-1 :- BLUE" :PR 
INr'2:- rJREEN" iPRlNT"'^:- RED" 



ENTRY, DO FlGfilN" jGOTO 190 

130 IF Ti<<2 OR T>^>256 THEN PRINT "iMUnLI 
n TOP CO-ORDINl^iTES, 00 AGAIN" iGPTO 13 



140 jF TY<e OR TY>:92 THEN PR J NT "INUfCI 
D TOP CO-ORDINATES, DO fiGf^ I N" JGOIO 19 



150 1[^ SX<0 OR ex>25eTHEN PRINT "INUFH. ID 
BOTTOrt CO-ORDINATES, DO flGf^lM"!GOTO 198 
!i^P IF PY<e OR f^Y>ia2 THEN PRINT "iNURLI 
D SCTTOn CG-i3RDlNAT£,S, 00 - :■■■.• : •,; \ l ij 
Q 

170 IF rs<ia 

COLOUR SET, 
180 JF CS=I 
"YOUR DUnP UIILL 
RENT COLOUR SET 



130 
200 
2J0 

230 

240 

2se 

260 
2?0 

280 

2aja 
3m 
'Slid 

320 
330 
340 
350 

3se 
3af 



OR CS>J THEN PRINT " I NLTAL I P 
DO AGAJK" JGOTO 190 
AND Pri=l OR Pn^3 THEN PRINT 
BE ALL WHITE, U5tn DIFht 
tGDTC ]30 

SULiNU :)*J,aJFaR J = ] TO 1000 :NEyT ;f^|jm 

PnODE Pn,PA:SCREENI ,CS 

HE=Gj*.(BY-TYJ 

PRJNTtt-2, "RR, -" JHE 

PRINTS-?, "I" 

FOR Y-ir TO BY 

FOR 'K^JX TO e^ 

i*i^ppoiNr i:>;,Yj 

IF A=l? THEN PRjNT«-2, "C0" :GOT0 
>-RlNT«-2, "02" :GOTn 
f'?^INTiS-2, 



:j" JGDTl 



320 



',£),«, 2 J -2*0' 



ih H-1 THEN 

IF A=3 THEN 

IF A-4 THEN PRINT H-2, "CI" :GC:(J?20 

GOTO 3/& 

PRlNTfl-2, "J 

NEKT X 

PRjNTfl-2j "H,R2 

PRJNTtt-2| "I" 

NEXT Y:END 

PRINT!! '■.•■;:.■> 



iR CHOICE" ;hc 

HC>'J IHEN 10^ 
■LCAD PiClURE FROfl TfiPE [.T 



120 IKPMT "ENi;:" 
130 IF HC<0 CR 
MP CLS^lNPul ■ 

150 if f^£="v- ip-f^ PRINT "INSERT Cf^SSEl ] 

t> PRESS PLAY": INPUT "ENTER PICTURE TITL 

E";M*:SCREEN l,SC:CLOADn TI$ 

J6G SCREEN 1,SC 

iJG PRINT a'2,CMR*:i;?J 

180 PRINT Jl-2,CMR£C JB) 

IBB PRIMT fl-2,"r' 

200 PRINT a -2, "C-" jHC 

210 FOR Y^e TO 191 



220 
2 so 



f-QR ?<=0 in 255 

p=ppoint:x, tj 

IF POFC THEN 2Be 

U=C>:A-2J-t510 
260 PRINT if-2, "n" jY*2;", 
2?Q PRINT *t-2, '■J2,ej0,-2 

280 NEXT y^y 

230 PRINT it-2, "A" :EhiD 
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Write: ADVENTURE 

Peter Gerrard in a world of descrlbabfe adventure! 



NOW that our adventure program has 
reached the stage where ii can interpret 
&e nte nc es typed i n by t h e player, o r at I east 
break those sentences down into a succes- 
sion of words and numbers that the pro- 
gram itself can use. we reach the point 
where we have to supply a vQcabuiary. in 
other words, we need to give the program a 
listofalithewordsthatitisgoingfouseand 
understand- By that I don't mean words iii<:e 
'the', 'and', 'it', or whatever, but those words 
that wi!i enable a player to solve the game 

Such words as look', 'examine", 'open', 
and so on, should be common to every 
adventure, and in time to come we'll be pro- 
grammmg those into our adventure's 
vocabulary. For now we need to concen- 
trate on the ones that serve to distinguish 
one game from another, those that are par- 
ticLiiar to each individual program, and in 
orderto do (has we need to looK very closely 
at our location descriptions. 

Later on we'll be looking at ways of com- 
pressing the text so that we can get in as 
much detail as possible, but since the long 
description have to be typed in at some 
point anyway, we'll start from there- 




Sample Descriptions 

Take the fo I towing, which comes from an 
adventure of mine- All you need to know is 
that you''ve been exploring an old mine, 
and you are approximately half way down a 
decaying mine shaft: the outside world is 
still visible, since you are not yet that far 
jnderground. It goes somiething like this;. 

Up above yoo can make out the exit from 
the shaft, with a couple of stars twinkling as 
cluuds scud by across s your line of vision. 



Further down, the shaft disappears into an 
inky blackness. Any stones thst you 

dislodge fati for quite some time before 
hitting the bot^m with a quiet crash. If you 
fell, you wQuid probably make a slightly 
louder noise. 

This is what we might term an 'interim' 
description, sincethere is nothing here for 
the player to do other than to go on or 
retreat Nevertheless, these descriptions 

are important, and heipconsiderably in ad- 
ding to the f iavourof the gfame. It isn't every 
location that can have a problem to solve, 
and no game should really be like that: you 
need to give the player some sense of pro- 
gress as he overcomes a particularly dif- 
ficult sect i^on- After spending day upon day 
struggling over something, it is very 
disheartening to move one location further 
on and be brought to a halt yet again! 

In the above description the player is told 
everything that he needs to know, but it 
does go slightly beyond the you are in an 
old mine shaft' type of thing that featured 
(and sadly still does feature) in many a 
game. In the latter there is ri,o sense of at- 
mosphere whatsoever, you are simply 
solving a set of problems rather than ex- 
ploring a brave new world. However, by us- 
ing just a few words more than normal {and 
if we're going to compress things this 
doesn't make life any more difficult) we can 
give the player the true feeling of being 
there, 

The line about 'If you fell, you would pro- 
bably make a Slightly louder noise' tells the 
player all he needs to know about the depth 
of the mineshaft (albeit in a humurous kind 
of way) without going oft into reams and 
reams of "purple prose', as people are fond 
of calling that sort of thing. Little details like 
the stars overhead, the clouds scudding 
by, all add to the description and the atmo- 
sphere produced by it. The player can 
really begin to imagine that he's there, 
rather that sitting in front of a computer 
solving logic problems. 

Humour 

Personally I think that humour is essential 

to an adventure game, provided that it isn't 
overdone, Ot course, some games rely 
almost totally on humour and a penchant 
fo r terri b I e pu ns ( ' You are looking at a field of 
lambs. You feel sorry for them, knowing that 
in a couple of months time they're going to 
be taken away and slaughtered. They have 
gambolled and tost' sort of descriptions), 
although I can't pretend to be overkeen on 
games likethat(despite, as anyone will tell 
you, a liking for the pun!}, But a little dab of 
humour here and there never goes amiss. 
And, like certain comedians, it is possi- 
ble to be humourous without resorting to 
foul language, which some adventures 
regrettably do. There is no excuse tor that 
sort of thing- By all means have 'swear 



word' detector built into your parser, 
because if people like to type that sort of 
thing then they will do, and you can't print 
out anything that is coarse or crude- You 
never know who might be playing the 
game- 
So with all that in mind, and sticking to 
uncompressedroomdescriptionsforn ow, 
let us get our player moving around in his 
adventure wo rid - 




Player movement 

First of all, you need the room descriptions,. 
For now, ifyOu haven't got 64 such descrip- 
tions lying handily around, or you can't be 

bothered typing them all in, we can use a 
simple 'YOU ARE tN RQOf\A NUf^BEH' 
message, which at least will tetl us rhat we 
are managing to move the player from one 
place to another, provided of course that 
we follow the message with the room 
number itselt- 

However, the way in which we could do 
that (44 PRINT YOU ARE IN ROOM 
NUM BER'CP for example, where CP gives 
us the player's current position) is marked- 
ly different for the player to read (44 OM CP 

GCfTO etc, where the dots would be 

replaced by line numbers indicating which 
line contains which room description, is 
just one way of doing it), so do leave a nice 
wod ge of cod e f ree so t hat we ca n I ate r p ut 
the room description in there. 

But the problem is, how do we get a value 
for CP? Like this, dear reader- 
Let us assume that the player is going to 
start the game at (ocation number one- At 
the start of our program, then, we would 
have a line declaring CP to be equal to 1- 
Then, we could have a group of lines like 
the following (this is also assuming that 
you're using the parser from an earlier col- 
umn, although that's up to you of coursef): 
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6VBS[5)="H"':VB$(6) = -'S";VBS(7)= 

'E":VB$(e) = '^W" 
1001 tF VB>5 AMD VB< 10 THEN 1050 

1050 IF (VB=6 0R VB=e) AND CP(64 
THEMCP = CF + 1;GOTD44 

1051 IF(VB=5ORVB=7)ANDCP>0 
THENCP = CP-1;GOTO44 

1052 PRINT "YOU CANT GO THAT 
WAY.'": GOTO 44 

These are just being used as examples, 
and don't have lo be followed slavishly. 

From the above, you can see that we've 
defined four verbs to be equal to the four 
compass points N, S, E and W, You might 
like to include VeS(l) = "NORTH'', 
VB$(2)=''S0UTH'\ and so on, to give the 
ptayer the option of typirig either 'n' or 
'north' when he wants to move in that direc- 
tion. Then, line 1001 checks to see if the 
verb typed by the player corresponds to 
one of these movement verbs, and if it does 
then go to line 1050. Change the VB>6 to a 
VB>0 if you've added the longer versions 
of the words, 

Now, lines 1050 to 1052 are most 
definitely NOT the sort of thing you'd want 
to include in your adventure! But, as a 
starting point, it will let you check all your 
descriptions Here, iif the pSayer has typed 
In verb 6 or verb 8 (ie he wants to go soufh 
orwest)andthecurren: location number is 
less than 64 (this assumes a 64 location 
adventure) then increases it by one and go 
back to line 44 where we coold print up 
either our YOU ARE IN ROQfVI NUMBER 
CP mess age, or go off to the line that prints 
up the CPth room description. Similarly, if 



the player has typed in verb 7 or 9 (ie he 
wants to go north or east) and the current 
location number is greater than zero then 
decrease it by one and go back to line 44 
again. Finally, if none of these conditions 
are true then teil the player that he can't 
move anywhere. 

This, as I said, is only useful in allowing 
you to check your room descriptions, since 
we don't want players moving happify 
throughout the entire game without a care 
in the world or a problem to solve. So, we 
must have some way of controlling move- 
ment and getting the player going in the 
right direction, 

If we define an array P'M)[64.4), we can 
achieve this control. Suppose that from 
location 1 the player could go north to 
nowhere, east to location 2, west to loca- 
tion 3 and south to location 4. Highly im- 
probable, but it will do as an example. We 
could then define P%(64,1} to equal zero, 
P%(64,2) to equal 4, pf>/o(64,3) to equal 2 
and'P%(64,4) to equal 3, In other words, we 
use the four elements of the array to 
represent the movement directiions north, 
south, east and west: theorder in which the 
verbs were originally typed in. if you recall, 
Thus P0/b(CRMO} would give us the 
location that a player would end up in if he 
were to move in the MO direction from loca- 
tion CR 

It's easierto see by example; 

1050 VB=VB-5:IF P%(CRVB)< >OTHEN 
CP=P%(CRVB):GOTO 44 

1051 PRINT "YOU CAN'T GO THAT 
WAY.": GOTO 44 



The value of VB lies in the range 6 to 9, 
although \\ you were also using the values 
1 to 4 you'd have to do another check. All 
we want to end up with is a number in the 
range 1 to 4, representing north, south, 
east and west respectively. Then, if 
P*'Ai[CPVB) is not equal to zero, that's 
where the player is going to end up. So we 
puthimtherebydeclaringthenewvalueof 
CP to be equal to P%(CpVB} and goto line 
44 to inform the player of where he's got to, 

If the value of P°/o(CRVB) IS equal to zero 
then there is no movement allowed in that 
direction (over a cliff, or into a bottomless 
chasm, perhaps) so again we teH the 
player so and go off to line 44 again. 

Thissorl of thing could easily be extend- 
ed to cover some of the more usual pro- 
blems thai are encountered in an adven- 
tufe. Forexampfe, the need to carry a torch 
in certain locations, say locations 40 to 51. 
If the torch was being carried we could 
have a flag TC set, and by altering the lines 
a little we could have something like: 
1050 VB=VB'5:IF (CP)39 AND CP<52) 
AMD TC=0 THEN PRINT "ONE MOVE 
AMD YOU 'LL FALL INTO A PlT.":GOT0 44 
and have the rest of the routine do the 
check tor niovement allowed or not allow- 
ed as the case may be. 

Conclusion 

By this straightforward use o1 an array we 
can effectively control the movemeni! of the 
player through our adventure, as well as 
setting up checks for torches or anything 
else you might care to include. 
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ADVENTJIIK 

TRAIL 






I'D like to start off Ihis montli's AdventurB 
Trajf wilh a promise and an apologiy. First of 
all, I prornise not to mention any sporting 
even I ever again (unless it involves Wig an 
and they've wool). The time lag between 
my writing this and your reading i1 is such 
that anything I mention is lost in the mists of 
antiquity by the time it reaches you, and 
I've received a mild reprimand from a per- 
son whoshall remain nameless but knows 
who he is because he asked my brother 
Mike to pass the message on (hello there!} 
to the effect that he didn't have the faintest 
Idea what I was on about , Many people say 
this, but the fewer the better and so no 
more sports. 

Secondly, apologies to anyone who 
hasn't yet received the solution to an 
adventure, I'll be with you as sooon as I can 
(ie when I've finished this column). Sorry, 
folks. 

But enough of this taradiddle, pass 
those waffles and let's get on to the trail ot 
the Of agon 

Sad News 

We Gerrards seem to have the powerof lite 
and death ovee magazines. No sooner do 
we mention one and It disappears forever. 
Insight bites the dust, so bad lucK to Ron 
Dawson , and after a fleeting appearance in 
last month's column sohas^di^nfufie Con- 
facf. Thisiseven worst than usual because 
it was produced in Wigan so commisera- 
tions to Pat Win Stan ley, However, its sister 
magazine, Adv&nture Probe, is alive and 
well for the next three and a half years at 
least (or so I'm told), Sandra Sharkey, the 
editor, when not beating me at pool would 
love to hear from you at 78 Merton Road, 
Wigan, Lancashire WN3 6AT. 

Better News 

A fetter from Joe Brincat is always good 
news, since this man has solved more 
Dragon adventures than have been 
written. With Joe being from l^alta we get 
art international flavour to the column (and 
more to come, with Gibraltar lurking in the 
wings), so let's help my stamp collection 
antJ Keep 'em coming. 

in July issue of Dragon User the Expert 
printed Joe's map ot Total Eclipse, but 
neglected to inciude the key to the map. So, 
ever one to make amends, you'll find it 




attached somewhere to this column. 
(Hhhmn^ph. No you won't. / don't know if 
you're going blind or I'm going rr}ad, but 
there's a perfectly good k&y in ffte top iett 
hand corner of mine. Granted It's a bit f&int. 
tf we get six more tetters, and we can find 
the original, we'll run frte key again 
sometime. — Ed) 

Now completing this mammoth game is 
an incredible feat of adventuring, but alas 
there be still problenms. There is, for exam- 
ple, the abandoned craft, which nobody 
seems to have found. Salvage and Invest 
won't work, so on behalf of adventures 
everywhere, HELP! the producers ol the 
game, Fenmar, are as elusive as the 
abandoned craft, so if anyone can help 
me and Joe please write in. Joe's address 
is 73 Annunciation Street, Hamrun, Malta 
28-06-87, and hel I be h appy to h e I p anyon e 
with Total Eclipse (apart from the above 
problems, of course). Also, at the com- 
pletion of Universe 1 the following words 
appear on the screen: 

"Well done commander yO'U have com- 
pleted Universe 01 Place Universe tapes 
in player — prepare tape player — prepare 
tape player — press Enter when ready". 

Where is Universe 2, this is the question, 
To quote Joe's letter "I will pay its value to 
whoeversendsit(tome)first and when one 
day iVe finished mapping it, he will be the 
first one to get the map". Okay you loi, now 
there's an offer you can't refuse. Incident- 
ally, Joe's version of Total Eclipse was 1,3, 
so perhaps any later ones have a more 
easily found abandoned craft, Hopefully, 
we shall see. 

Staying in this universe for a while, 
Donald Morrison is having problems with 
Syzygy, sayi ng that when he enters the co- 
ordinates for the planei he gets trans- 
ported into space. Well, are you entering 
the correct co-ordinates? These are 
0-4-1-5, so enter that number then PRESS 
LEVER and he ho and away you go. 

Going onto parallel universes we arrive 
at Hemel Hempstead and Graham Burton, 
who imparts some words of wisdom con- 
cerning Operation Sapras, And 1 quote "To 
find antidote go south, east, east, east, 
then west in the 'green and brown'; Ron 
Tripp is of further use when you find him: 
book stalls can be useful: take note of what 
the man in Aberdeen says". It must mean 
something! Of course it does, 
Alas, Graham is not on a par with ihe 




Popeanddoesmaketheoddmistake.Like 

erasing two of the machine code routines 
on FheRrrrg of Darif/iessJhus making it im- 
possible to solve. Ah well. Problems with 
Vortex Factor a^viie\\.so\e{ me tell you what 
the hair pin is not for picking the lock of the 
north door, you must enter the hole, NOT go 
north, and then use the hairpin. As far as I 
can tell the aquarium is not essential to 
completing the game, so if I were you Td 
make for that hole and continue from there: 
you'll find at least two more treasures by 
looking at the chest that you'll find there. 
A plea for help from Neil Davies, of 4 
Grinshltl Drive, Crowmoor. Shrewsbury, 
Shropshire, SY2 5JE He's completed 
Trekboer Sea Quest. Calixto Island. 
Jerusalem Adventure. Ultimate Adi/enture. 
Shenanigans and Syzygy and will help 
anyone who sends him an SAE, However, 
he also wants to know if there's anyone in 
the Shrewsbury area willing to swap 
games. Okay Shrewsbury folk, get writing. 

All right, all right. Gibraltar here we 
come. Andrew Powell, 1 Old Naval Hos- 
pita I , G i bra I tar to be p rec i se, sen ds a lefts r 
that's a curious mijt of grovel and thinly 
veiled threat. Grovel in theform of worship 
(this is the stuff) and threat in the message 
that if I don't help him out he'll send the 
boys round. Why does no-one wever send 
the girls round, that's what I want to know 
(cue several thousand letters of com- 
plaint!). Anyway, the lad is stuck on Return 
of the Hing. He's not the only one, so if 
anyone has a solution, Andrew and 1 would 
be pleased to see it. So would Graham 
Burke and a lew others as well. 

Having Cunningly worked Graham 
Burke into the conversation, he is having a 
problem or three with Juxtaposition, and 
reasonably near the start as well. Pity on 
the lad, so making sure you've got ever- 
thing before you get there (like blue key 
card, sleeping pills and anything else you 
might find lying around after short- 
circuiting the droid) go to the monorail plat- 
form (and don't go into endless rez zones), 
waitforthe carand board it when thedoors 
open. Get the camera from the photo 
gallery (only take food from the dinner 
d roid when you need to eat) . Go to the ante- 
room and put sleeping piUs in the 
caretaker's coffee. Get the while key card 
and cup from caretaker and unlock the 
door Get the breather mask, sticky tape 
and soldering iron, go back to the street 
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area and sort the rest out for yourself! 

That's more than enougti to get you wefl In- 
to the game, I think. 

Moving rap idly onto Ipswich, where Nick 
Webb is a man lost without matches in 
Btsck Sanctum. Well, me old son, tr^f ex- 
amining the mantlepiece in the cabin, and 
loand beholcf, got a light, boy? No, but I've 
got a heavy woman, 

Despite everything, despite hints and 
tips in various columns, I am getting just as 
many letters about this game as ever, 
whihc means either that people are new to 
the column, orthey don t read it, or they've 
just acquired the game. In order to stop 
droves of you sending in requests for hint 
sheets, my postman suffering heart failure 
and my printer ribbon being worn to a -. 
well, whatever it is that printer ribbons get 
worn to. here is the COMPLETE SOLU- 
TION to Aquanaut 471. Don't read it if you 
don't vvant to know. It's presented in the 
order in which you need to do things, and 
comes courtesy of Michael Edwards of 
B rt)oms oft . H e re goes . 

t) From the very start, go D. E, N, E, S, E, 
N,N,D, E, D, 0. 

2) Play the (eKpletive deleted) bubbles 
game. 

3) Find the memory GRID and the 
MIRROR, 



4) GO POSTER in the storage room (the 
mirror protects you against the iasers). 

5) FfX COMPUTER WITH GRfD then 
RUN COMPUTER. 

6) Take plastic CARD. Go W, N, E. Take 
the BLASTER. Go W, S, E. Tell Huey-12to 
FOLLOW IV1E. GoS, E. Drop the MIRROR. 

7) Go to [he force field with Huey (if be 
stops following you find him and tell him to 
foHowyouagainandtellhimtoGONORTH 
through it. Go W, W, S. Take the 
FLASHLIGHT Tell H uey to follow you. 

8 )■ Go to the tooi chest. Open it and look 
at it twice. Take both items that you find 
there. 

9) Go to the sliding door OPEN DOOR 
WITH CARD then GO DOOR. OPEN BOX 
WITH CROWBAR , Look twice, drop the 
crowbar and take the Al R H ELM ET. 

10 Go to the {expletive deleted) robot 
game. Go N, D. LIGHT the FLASHLIGHT 
thenN,D(pastmorerobots),aPENDOOR 
WITH CARD then U S, U. UNLIGHT 
FLASHLIGHT then DROP CARD 

11) Find Huey and go tothe hatch. Open 
hatch, tell Huey to follow you (he MUST 
keep foliowing you) then GO HATCH. 

13) Find the mutant. SHOOT him then 
drop the BLASTER. Go W. Find the box 
c ave r n and ta ke the seawe ed wit h th e pla nt 
cutters Drop the cutters then find the 



caves, and remember Huey must be 
foilowing you. 

13) Go in the caves, Light the flashlight 
and go S, E, E, N, W. Take the 
MUSHROOM and go U. Untight the 
flashlight. Find the module and tell huey to 
LIFT MODULE. 

14) Take the module. Combine the 
SEAWEED with the MUSHROOM to make 
a radiation pill. 

15) Return fyou don't need Huey now} 
to the base, remembering to UNLIGHT 
FLASHLIGHT when you don't need it. 

16) Go past the security robots, H. 
D, LIGHT FLASHLIGHT, N, D. EAT the 
PILL. GO DOOR then FIX REACTOR 
WITH MODULE. Retum 10 the poster 
room, get mirror go to the poster. N, 
PRESS BUTTON and ..... END!J!!!!! 

Huey-14's message is: 

To save the director you must: 

1) Make a radiation vaccine. 

2) Fix the reactor. 

3) Press the button. 
Signed... Huey-14 

Right, me again. No more letters about 

AquartAut 471, okay chaps and chap- 
esses?! See you nesft month. 



CLASSIFIED ADS 



DRAGON 32, perfect condition, 
unused, joysticks, books, DU 
back issues, 30 games and 

other software. !l90 one. T 
Eccles, 23 Holly Hill Lane, 
Saris bury Green. Hants. Tel: 
Locks Heath {04S95) 2096. 



PVRADVENTURE-AMENO- 
PHIS III. Enter the Lost Tomb of 
King Tu tankhamen's Path er an d 

I rave i back in ti me 3000 years i n 
this thrilfing adventure game. 
Please send £2.95 plus 50 p 
P&P to: 23 Ashby Road, Thur- 
ton, Norwich NR14 6AX. 



DRAGON 32, with joystick, 
cassete recorder, feads and 
manual. Also software in- 
cluding Word Processor, 

Database, Forth and many 
games, E50. Tel; Portsmouth 
478920. 



DRAGON GAMES at cheap 

prices. Alloriginal. SendS.A.E. 
for list to Richard Heath, 66 
Newcastle Road, Leek, Staffs. 
ST13 5RU. Tef: Leek 383175. 



DRAGON 64 DragonDos, 

Dragon twin disc-drive — all in 
working order, may split. Total 
£150. Tel: 061 655 1727. 



DRAGON 32, Analogue 
joysticks, reams of software 
{nearlySOOtitles), light pen. All 
in good conditiion, will split if 
necessary. Ali worth about 
£1000, going for E500 ono. Tel; 
Gt. Missenden (02406) 2535. 



WANTED Working disc-drive 
and controller in the Notting- 
ham/Derby area. Tel: (0623) 

792226. 



PROLOG interpreter for 0S9. 
Full-teature 5th-generation 
language, with lOO-page 
manual and utility module. 
E 29.95 from METASOFT, 4 
Pinehurst Walk, Orpington, 
Kent BR6 8DD. 



LARKSPUR Graphic Adven- 
ture Trilogy. Parts 1 and 2, 

avai^lable now. £2. Tei; (0772) 
774485. 



DRAGON 32. + joysticks, 
books £45 ono. Tel: 061 861 
8456 feveningsj. 



SUPERDOS disc drive con- 
troller kit (excluding case) £55; 
tested, working Dragon 32 (no 
lid) £38; untested, complete, 
could be working! £35; Most 
Dragon spares inc74LS783 - 
£10,25, 6809E, 41464, 
transformers, CPUs, PSU'PCB. 
Phone for details - NicK Spiers. 
Tel; (0892) 44070 (evenings). 



DRAGON 32 for sale. In original 

conditions with box and 
manual. Tel: (0935) 75319. 



LOW COST Dragon Disc 
Systems (Drive and Interface) 

from £130. For a 3'^", 250Kb 
system (plus VAT and postage). 
Also SVd" and 40^80 Track 
Drives, and Printers Send a 
long S . A . E . to : D ATASPA N LTD. , 
10 Pine Drive, Hawley, 
Camberley, Surrey. Tei: (0276) 
31507. 



HERE'S MY CLASSIFIED AD. 
(please write youf copy in capitals on the Iin«s below) 



Name ,,,.., .......,,, 

Address .,..,., , 

Tel: 

CLASSIFIED ADVERTISING RATE: LINE 6¥ LINE 35p per word. 

Please cyi out and send ttiis form to: Oasslfied Department, 
Dragon User, 12-13 Littte Newport S(, London WC2H 7PP. 
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Odd One Out 

When Gordon Lee gets going, he goes one and one and one 



QUESTION: Which of the following is the 
odd man out? 

7. 15, 23. £9, 32, 44, 50, 67, and 83, 

Answer: No. 44, 'cos iis the only one that 
includes fried ricell 

End of inathematical joke and on to 
some larger numbers! 

Consider that series of rmmbers wtiich 
are made up of the same digit repealed a 
specified number of tiimes. Ttiese are 
known as 'monodigit* nurrbers, and par- 
ticular, much interest has been shown in 
repetitions of the digit '1' — the term 
'repunif being used to describe numbers 
of this type, and it will be these that we will 
be examining here. 

For convenience, we can use a type of 
algebraize shorthand to refer to these 
numbefs, using the form By. where y 
denotes the number of ones present, So, 
for example, R^ will denote 11 , and R,,^ indi- 
cates 11111111111111111 

The main interest in these numbers has 
been in determining their factors, and in 
particular discovering which of the series 
is prime. R^ is obviously prime, but the 
next prime number in the series is not 
reached until R,g. The intervening num- 
bers are all composite, but establishing 
their factors is not at am easy. For example, 
even the modest R,^ already mentioned 
above, has only two factors: 2071723 and 
5363222357 — and if you don't believe it, 
just multiply them and see! The only other 
reasonable low repunit which is known to 
be prime is R^^, after which Rj,^ is the only 
prime for values less than RmoQ- 
Enigmatically, there are large gaps in the 
knowledge about these numbers. Most of 
the series have been proved to be com- 
posite although in many cases the factors 
themselves have not been established. 

An associated problem involving 
repunits is as follows: 

Take any prime number p, and find a value 

V, such that the product of p times v is com- 
prised only of ones. As a simple example, 
the prime 3when multiplied by 37will result 



in 111, Clearly, this is impossible for the two 
pnmes 2 and 5 {can you see why),, but of the 
rest such a value exists forv, although this 
number may be exceedingly large! 

The table shows the factors required for all 
primes (except 2 and 5) under 100, The 
number in column y indicates the numtser 
of on esinthefinai product — iethevalue of 

y in the formula Ry. Of particular interest 
are those primes marked with an asterisk. 
With these, the value of y is one less than 
the prime itself, f^/lathematicaliy, for this to 
happen, 10 has to be primitive root of the 
prime in question. These numbers turns 
upinadifferentguiseifweweretoevaluaie 
the reciprocals of primes. Except for 2 and 
5, all primes have reciprocals with digits 
which repeat in cycles. 

For example, 1/7 = 0.142957 and so 

on to infinity. This cycle of six digits is 
reflected in the y column of the table, 
where, except for the prime 3, the column 
indicates the number of digits in each 
cycle: 

1/11 = 009 09 09 09 09,.,, 
1/13 = 0.076923 076923. - 
1/17 = 0,0500235294117647..,, 

and soon. 

The competition question this month is 
concerned with the prime 34543, What we 
want to know is the smallest number by 
which we can multiply 34543 in order to ob- 
tain a product consisting entirely of ones. 
Now, as 10 is a primitive root of 34543 this 
product will contain 34542 ones, and con- 
sequently the number ttiat we are after will 
be almost as large, So all that we need is 
the ten digit sequence which occurs at 
position twenty-thousand and one to 
twenty-thousand and ten. 

Remember, the number Itself has 34537 
digits — commencing with 3216602817 
and wnding with 9772779177, 



3216502817.... 
,,..9772779177 



.(?? 



79'J'???'>'>'> 



).,...„„ 



Can you supply the m issing digits? 



Prime 


Y 


3 


3 


' 1 


t 


11 


i 


13 


« 


• n 


IG 


• IS 


18 


* J3 


23 


* 29 


2« 


11 


IS 


■ 31 


J 


11 


3 


a 


il 


• 41 


4i 


SJ 


13 


* i^ 


id. 


* 61 


to 


6T 


33 


71 


a 


T3 


s 


79 


1.3 


91 


*l 


B9 


** 


*■ tl 


»6 



Comp 1 eniB !■- h ;i r y J-'»ctor; 

IT 

1S97 J 

1 

5i3S*^^7l^^lfl3 

5ej7953Z153Hit,9 

*e309na7*39ei35i55'? 

:Sa31*n6245IlD7379 693IB6S9 

3 

271 

2543 979 32 a 16b3H.671 

2^«4066l93e5^^^79?59Bl□a7^T0^^<^n3S7S(J2l&ls 

20944360587 

18d3239L713747«+5J51P357Jl 54*1561 ^OS2■?J1^69{^9*^?^^- 

-q9*6J9 

l*?H^36S477231339«9D3ltDaJ1S97a-tT39S26411*5755919- 

-B5*2fl05l 

l«.5a37*7S27a31bD9121l3613S-9B,S73J 

16ft49<52Sfr9170579PI973J9b9JlH5*l 

l£22aT 

11396 aBOab&1tOJH«3:26fJ*e9I9Q49 53H5»l7 

lJ*aiJ9€iOBet6*ie9TS77t5J9J393?7D911JBD75» 

1 H51 75 31 2279 1*^99<J9J« 197^1178*03207 JJIOJ 2382 58(77- 

-*3*135166D9 33 2e9«05269iet71J4« 5681557846 50* 3 



Prize 

DOJviT be stingy, we said to Wicrovision 
Software, and so they gave us Miser's 
Dream. Is there a hint in there 
somewhere? Whether or no, there are 20 
copies of this program for the twenty best 
entries to this month's competition. 

Rules 

Pul! out your digits and solve the puzzle. 
Ttien (and not before) send us your solu- 
tion, with any notes you want to include, 
with a printout of your program (no tapes, 
please) and your name and address, in 
an envelope marked SEPTEMBER 
COMPETITION. 

To make everything fairer (no, you can't 
leave the solution out), please complete 
the tiebreaker "As soon as I've made my 
first million ..," and sent it to us with your 
solution. 

June winners 

Lots of entries. We didn't reject people 
who used the leading zero' as long as 
they had the other answers right, Gordon 
may have something to say about that 
eventually — some of the entrants cer- 
tainly did. The winners are; 

John Machin of Tnoon, Keith David ot 
Crawley, Richard Long of Camberley, 
Jake Anderson of Edinburgh, Denis 
O'f^ulloy of Comberton, Phil Callaghan 
of Stafford, R, Raine of Sapcote, Paul 
Weedon of Wotton-under-Edge, Dave 
Lardner of Rutherglen, Fred Taylor of 
lyiddlestirough, Austan Henderson of 
Bromsgrove, Graham Barber of Sutton 
Coldfietd. S P Greenard of Ingatestone, 
Terry Potter of Chisel don. Phil Davies of 
Longhoughton, Andrew Powell of 
Cambridge, John Smallwood of Preston, 
Alan Thomas of Staple hurst, Cllve G, 
Scott of Ashstead and D.J, Gray of 
Middlesbrough. 

And the mystery prize, kindly donated 
at short notice by small but devoted soft- 
ware house Bfoomsoft, is a set of free 
vouchers and a set of discount vouchers. 
ThanK you. Andrew. The free vouchers 
will go to the worthiest prog rams, and the 
rest to the runners up. We aren't going to 
an no u nee who is w ho he re — a 1 1 the win - 
ners sent in a high standard of entry. 

And some very silly (and even poetic 
tiebreakers) which gave us lots of laughs. 
Favourite fronn Olive G.Scott: Them wuz 
the days. Why, when 1 was seventeen^ 
computer programs had to be saved on 
wax cylinders." But there were lots of 
other good ones. 

Solution 

This month's solution appears on page 
27. 
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The Answer 



ANSWER: There are two numbefS which 
Will produce ihe longest sequence possi- 
ble (of eight steps) These are 909 or 999- 



This is dordon Lee's own 

solution to the June competition 

see page 26 for results 



9095 (= 
0952 (= 
9520 (= 

5202 (= 
2023 (= 
0238 i= 
2380 (= 
3808 (= 
906? 



535 * 17) 
56' 17) 
560 * 17) 
306 * 17) 
119 ' 17) 
14 * 17) 
140 * 17) 
224 * 17) 



999e(= 588 * 17) 
9962 (= 586 * 17) 
9622 (= 566 * 17) 
6222 {= 366 ' 17) 
2227 (= 131 * 17) 
2278 (= 134 " 17) 
2788 (= 164 * 17) 
7888 (= 464 ' 17) 
8BB? 



Solution: The program begins with a\\ 
starting values in the range of 100 to 999. 

These are held in the FOR/EXIT loop at line 
110. For each test, this value is transferred 
to variable 'X', and it is on this variable that 
the operations are performed. Loop 'D' at 
Nne 140 appends each digit in turn, and the 
result (in variable 'Z'} is tested for divisi- 
bility by 17. If an eKact multiple is found, the 
value currently in 'D' is transferred to 
variable 'O' This variable (Qj is set initially 



to the value '1 (line 130) and if it remaiins at 
-1 when tested at line 180, then no multiple 

has been found for the current sequence 
under test. However, if a multiple is found 
the new number is generated at line 190, 
and the right-hand three digits are ex- 
tracted at line 200 by means of a string 
variable. This is then converted back to 
numeric variable K, and the whole process 
is repeated from line 130. A 'count' is kept of 
the number of steps possible for each of 
the starting values, and this number is 
checked against the current maximum at 
line 250- 

If the program is run, it computes this 
maximum step as being 8. It is then 
necessary to re-run ihe program a second 
time, having amended line 250 to read: 

250 IF T=6 THEN PRINTS 

Line250 should also be deleted This se- 
cond program will then print those starting 
valuesforwhichastepvalueofehasbeen 
achieved. 



100 


MAX = 


110 


FOR S=100 TO 999 


120 


X^S:T=0 


130 


Q=-l 


140 


FOR D=0 TO 9 


150 


Z=X*10+D 


160 


IF Z/17=INT(Z/17 ) 




THEN Q=D:T=T+1 


170 


NEXT D 


180 


IP Q=-l THEN 2S0 


190 


X=X*10+Q 


200 


X$=STR$(X) : 




X$=RIGHTS(XS,3) 


210 


X=VAL(X9) ;GOTO 130 


220 


NEXT S 


230 


PRINT'"MAX1MUM| 




STEP=";MAX 


240 


END 


250 


IF T>MAX THEN 




MAX = T 


260 


GOTO 220 



Communication 



Problem: Where can f obtain a program jn 
Basic to rotate images in X-Y-Z planes, the 
points being obtained from an array in Pts. 

X,y and Z in high resolution? Hefp. 
Name: Dave Bennett 
Address: Raiffeisenstr. 8A, D4450 
Ungen/Biene, Germany. 

Problem: I need to connect my TRS-SO 

DMP 120 Printer to my Dragon- Is there a 

suitable interface? 

Name: Chris Vollbracht 

Actdress: 110 Alpine Rise, Slyvechale 

G ra ng e Estate, Coventry, W, M i d la nds CV3 

GWR. 

Problem; Does anyone have the cassette 

version otEmpifB by Shards Software which 

they are willing to sell? 

Name: Karen Carpenter 

Address: 41, Glenleary Road, Coleraine, 

Co. Londonderry, N Ireland 

Problem: Desperate. Frantic. Pulling out of 
hair. Near to nervous breakdown type plea. 
To borrow, buy or even ateensy weensy peek 
at a copy of The Ad\/anced Progmmming 
Guide for DettaDOS book. Very ditto the 



manual which accompanies Morrison's 
Pascal Compiler. Also 747 Flight Simulator 
manuai. Original publishers have none left, 
and mine have been nicked. F have photoco- 
pying facility and will pay all postage and 
packing, 

Exceeding desperate for a dead or dying 
Dragon DOS cartridge. 
Name: PaulJ. Read 



Address: 7, Fairview Avenue, Whetstone, 
Leicester LE8 3JQ 

Problem: Does anyone have a Dragon's 

Claw I n le rf ace (and possibly a S nap cam e ra 

and software) that they are willing to sell or 

ler>d? 

Name: Andrew Be [I 

Address: 7 St. Pauls Road, Cambridge, 



Adventure Contact 



To help puzzled adventurers further, we 
are instituting an Adventure Helpline — 
simply fill in the coupon below, staling the 
name of the adventure, your problem and 
your name and address, and send it to 
Dragon User Adventure Helpine, 



12/13 Little Newport Street, London 
WC2H 7PP As soon as enough entries 
have arrived, we will start pfinting them in 
the magazine, 

Don't worry— you'll still have Adven- 
ture Trial to write to as well! 



Adventure 
Problem . . 



Name . . 
Address 



Adventure Contact 



Adventure: TheKetTriiogy 
Problem: How do you get past 
the zombie? 
Name: Paul Dean 
Address: 26, Millhouse Drive, 
Wymans Brook, Cheltenham, 
Glos GL50 4RG, 

Adventure: Fling ofDarknBss 
Problem : H ow to i^oard the cart. 



also how to get the keg from the 

jester. 

Name: Aiden Devine 

Address: 60, Mether Street, Fin- 

chley, London N12 7NG- 

Ad venture: Syzygy 
Problem; I have found the 
transporter and co-ordinates. 



How to use the transporter? 
Name: Kieron Williams 
Address: 33 Mayffower Drive, 
Margord, Nr, Wrexham, CI wyd 
LL12 0LD, 



Adventure: a) Shenanigans bj 
Cncklewood Incident 
Problem: a) How do you safely 



cross the rainbow? b) Which 
command allows you to board 

the bus? 

Name: Chris VoUbracht 

Address: 110 Alpine Rise. 
Styvechale Grange Estate, 
Coventry, W. Midlands CV3 
6NR. 
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TURBOCHARGE YOUR DRAGON: 

With our great value hardware and software: 



BASrC 42 

Extended BASIC for the Dragon 64 

For Drago ndos (please state version} £1 4.9S 

Runyour Dragon in 64KiTiDde. while retaining BASIC 
and DOS. Prini on lii-r«s screen, using standard 
PRINT commands, and a scieen layout of S4 nowaof 
42 cotumn^. Olti$r fiestures include ; 

Alternalfve, redelinsbl^ character setE. control t^y lor 
sjsecia* characters, fepeating Heys. and ODmmands in 
lower case win^Jows. CATCH command for automatic 
relurn to window, inverted video (gneen on blacWblack 
on q reer*), 1 rue underlinirg and extra PR! WTcommands 
and functions. 

LIBRARY lists commands and funclions Ayiomain; 
startup ol BASIC prog ram. TEXT command for softwang 
i;ompa1 ibi lity. Slill 233SS b/tes free (o BASIC. Palehas tor 
Drggondtis 1 Can load m e:(lra UTILITIES fnam disk.. 

HELP UTILITY ES.OO 

Eslenfiions to BASIC ^? include change oursi>r 
chairacler scroll disable, pause liEtin^. BREAK disable, 
improved TRON (allows single stepping). Detailed heilp 
and er^cr messages 

SPOOL UTILITY E5.00 

Use computer whiile prinliTig 35K print buMer TYPIST 
program turns Dragon intotypewriler. 

ICONS UTILITY ESjOO 

Put icons in ygijr prpgrarn! Controlled by cursof or 
" mouse' '. Com m ands lodef ine. clear load and save ioorj 
posiitons and wi n^icws. 

STRUCTUR UTILITY ES.OO 

Anoiher firsi! Euuctuned SASlCon inc Drajgonr Allgfuvs 
name^j procedures, improved loop controls by WHILE ... 
WEND. and REPEAT. UNTIL elc 

DOSUTILITV C5.0& 

Makis friends v^ilh your DOS' Enter all the main IX)S 
commands, plus LIST, EDIT dc. and seled liJ9S by 
cu r5or or '"mouse' '. 



WHAT THEY SAY ABOUT 
BASIC 42: 

"probabfy the best step so far" 
Dragon User 

"an invaluable utility" 
Dragon Update 



HARDWARE 

Memory Upgrades FROM £35,00 

SkJ pertlOS Csri ridge £76.00 

40 Tr^ck Drive inc. Cartridge £1BQ.GD 

SupenJos controller (cliiponly) £10.00 

Pieak!S0ftjt>y*'i'=''fi'^«*l "mouse") t5,50 



□4SK SOFTWARE FOR OR AGON 32f%in2& 
WITH DRAiGONDOS/CUMANA DOS 2 Q 

' ' NEW * * 
PllKie (MirtdSCitM E14.9S 

Icon-driverr drawi ng program . Requires joy5(icJ( 

DSKDREAM {Gr<)9venor} E19.9S 

The standard Dragon EditDrVA$$emi3ier 

D.R.S (GrMvenorJ E9.95 

Mschi n e cods database program 

SOURCEMAKER (Pamcorrms) EB.SO 

Di5i:H5S«mble' for use with DSKDREAM 

DISK-KIT (Pamcomms) £9,95 

Sortoutyourdiekpj'Dblems 

Cl>eq ues^RO.'s/'Fu rther detai I s/dealer enquiries lo: 



MACGOWAN SOFTWARE 

PRINTER CONTROL- FROM £19.95 

A text AMD graphics processor 

DUMPER* FROM £5.45 

Reloc3lable screen dump program 

COLOR PRINT* FROM £6.50 

PlWode 3 screen dump program 

* * NEW * * 

LIGHTPENS/W* CASS £7.00 

Upgrade includes scrcon dump DISK i&.oa 

MONITOR/ASSEMBLER* CASS £12.00 

Printer orientated DISK £15.00 

'Prices vary accorifirig 10 printer : please 5j>eCify . 



MONEYBOX (HaftiR) 

homo and small business accQunls 

MAILBOX {Harris} 

Selective mailing list program 

SHAREBO)! (Harris} 

Manag* your slocks a nd shares' 

SALESeOX (Harris) 

Balance e/F Sales Ledget' 

BILLSBOX (Han-is) 

BalancH? fi/F Pu'ctia-se Ledger 

CASH BOX (Harris) 

Double-eniry Wominal Ledger 

STOCKBOX [HarrisI 

Fuli-featuned Stock Co nl rol 

ORDERBOX (Han^iS) 

Invoicing hnked lo Sales or Stoc* 



E14.W 
£15.95 
£15.99 

£19.99 
£19.99 
£19.99 

£16.99 



HARRIS MICRO SOFTWARE 

49 Alexandra Road, Hounslow, Middlesex, TW3 4HP Tel: (01)570 8335 



DRt' 



S.P. ELECTRONICS 

Complete Dragon Spares and 
Repairs Service 



Citizen 120D 
Dot Matrix 
Printer (NLQ) 



Ferguson Green 
Screen Monitor.. 



£19aO0 



E64.00 



Philips Green 
Screen Monitor 
(7502)....... 

Philips Amber 
Monitor............ 

Parallel Printer 
Cable .,......, 



£85.00 



£95.00 



£12.90 



S.R ELECTRONICS 

48 Limby Road, Hucknall, Notts 
(Nottingham) 640377) 




DONT FORGET ! ! 

THE NM ENGLAND DRAGON 
SHOW/CONVENTION 

AT— ROCHDALE 

ON:— SATURDAY 12TH SEPT W 

TIME:— 10.00 AM — 4.00 PM 

VENUE:- BISHOP HENSHAW UPPER SCHOOL, 
SHAWRD., 

(OFF MAIW ROCHDALE — OLDHAM 
ROADJ, THORN HAM, ROCHDALE. 

(ADULTS ei 50, CHILD C1.00) 

TH ERE WILL BE SOME THING FOR EVERYONE. 

MAJOR SOFTWAHEyHAHDWARE FIRMS, USER 
GROUPS, DEMOS, TALKS, FORUM. COMPUTER 
CLINIC, PRIZE DRAWS. SNACKS. LICENSED BAR 

APPLIED FOR. 

EASY ACCESS FROM M62 (JCT. 20) 

ENQUIRIES TO:— 
PULSER SOFTWARE 

(0706-849189) 
(BRIAN O'CONNOR) 
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